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LE MANOIR 
DE ROCHEBRUNE 


Pascal et Laurent KERLOCH 


n quête d'une aventure, arrivez dans le pays de Dragonnaze qui 
domine une solide forteresse, Le Baron de ce territoire a jeté depuis 


bien longtemps un maléfice sur la région. De plus, il retient sa fille, 
la belle Hélène, prisonnière dans son donjon, la Tour Noire. 


De nombreux princes du royaume sont venus lui demander sa main, 
mais aucun n'a pu ressortir vivant du château. En apprenant cela, vous 
décidez, vous aussi, de tenter votre chance. 

Pour obtenir l'accès à la Tour Noire et délivrer la Princesse, il vous faur- 
dra réunir un diamant, un lingot, un coffre, un sceptre et une couronne, 
ainsi que tuer le Dragon {mais attention ! ses coups sont mortels l). 
BONNE CHANCE ! 
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180 ‘ HFERERAEANAEERX 

190 ‘ # PRESENTATION # 

200 ‘ HAHFFÉEHENENEREE 

210 MODE 1:BORDER 1 

220 INK O,O1INK LB: INK 246: INK 5,24 

230 PEN 2: LOCATE {6,9:PRINT"Le Manoir * 

240 LOCATE 20,8:PRINT"de" 

250 LOCATE 16,11: PRINT"Rochebrune" 

260 PEN 3 

270 LOCATE 16,6:PRINT STRING$(10,CHR$ (208) ) 

280 LOCATE 20,9:PRINT STRING$(2,CHR$ (208) ) 

290 LOCATE 16.12:PRINT STRING$(10,CHR$(268)) 

300 PEN 1:LOCATE 20,15:PRINT"par Pascal" 

310 PEN L:LOCATE 20,17:PRINT"et Laurent Kerloch" 
320 ENV 1,100,-0,5,20 

330 ENV 2,50,-0,5,10 

340 SOUND 1.239,60,12,1:SOUND 2,478,60,1 
350 SOUND 1,319,30,12,2: SOUND 2.638,50, 1 
340 SOUND 1,319,30,12,2:SOUND 2,638,30,.1 
370 SOUND 1,239,60,12,{: SOUND 2,478,60,1 
380 SOUND 1,190,80,12,1:SOUND 2,579,60,1 
390 SOUND 1,169,60,12,1:SOUND 2,338,60,124 
400 SOUND 1,190,30,12,2:SOUND 2,379,90,1 
410 SOUND 1,190,30,12,2:SDUND 2,379,30,1 
420 SOUND 1,169,60,12,1:SOUND 2,338,60,12, 
430 SOUND 1,190,60,12,1:S0UND 2,379,60,12, 
440 SOUND t,169,120,12,1:S0UND 2,338,120,1 
450 FOR ATT=1 TO SO00:NEXT ATT 
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260 ÆHAMAREREEERENEE 
470 * x INITIALISATION # 
490 ‘  XHHAEAAHEHÉNEREES 
490 MODE ! 


500 ROUTI=1:PARAM={:DIM ARM$(12):DIM TRES$(12) 

510 DATA Diamant Lingot.Coftre,Sceptre.Couronne,Daque Arc ,Hache Armure, La 
nce,Epee 

520 FOR A=8 T0 12:READ AS: TRESS(A)=AS$:NENT A:FOR A=1 TO 12 STEP 2:READ A$ 
sARM#(A)=A$: ARMSCA+II=AS:NEXT À 

530 CLS:DIM ARMC120):DIM TRES (12):WINDOH #1.28,40,1,2:WINDDW #2,28,40,4, 
17: HINDOH #3,28,40,19,25:WINDOW #0,1,26,4,25:HINDO0U #4,1,3,1,2:HINDO #5, 
d52041 12 

540 INK O.02INK 1,15:INK 2.6:INK 3,18:FDR A=0 TO S:PAPER HA.O:NEXT A:PEN 

HO,1:PEN #1,1:PEN #2,3:PEN #3,2:PEN #4,S:PEN 45.2 


550 BORDER 3 

260 PLOT 50,400,2:DRAMR 0,-34,2:DRAWR -50,0,2:PLOTR 0,-12,2:DRAWR 41B,0,2 
DRAUR 0,-354,2:PLOTR 12,0,2:DRAUR 0,114,2:DRAUR 210,0,2:PLOTR 0,12,2:DRA 

MR -210,0,2:DRAUR 0,228,2:DRAWR 210,0,2:PLOTR 0,12,2:DRAHR -210,0,2:DRAKR 
0,34,2:PLOTR -12,0,2:DRAHR 0,-34,2 

3970 DRAHR -358,0,2:DRAHR 0,34,2 

280 PRINT" Des runeurs circulent quidisent que le terrible Baron de Ko 
chebrune garde sa fille, la Princesse Helene, dans le Donjon de son Ma 
noir, la Tour Noire ‘ 

590 PRINT" Vous avez decide de la  delivrer et vous vous diricez ver 
s le sombre Manoir de Rochebrune, ": PRINT 

600 IF INKEY$<)"" THEN 610 ELSE 600 

b10 CLS:PRINT" Le Sphinx qui en garde  l'entree vous enonce vos droits 
et obligations :":PRINT 

220 PRINT" Vous devez rassembler 5 Tresors differents et tuerie Mechant 
Baron qui des votre arrivee 5e aetanor- phose en un Terrifiant Dragon 
630 PRINT:PRINT'Mais vous etes bien decidea tenter votre chance et vous 
penetrez dans le Ma- noir, Le pont-levis 5e referme derriere vous.":PR 
INT 

b40 IF INKEY$="" THEN 640 ELSE CLS 

650 ‘ HAE EPS RIRES 

660 ‘ + TIRAGE DE LA FORCE DE DEPART # 
EYURMETTZIIIITTSITITS TITI TT TITS IIS 

680 PRINT #t, "Votre Force" 

690 FRC=INT(RND(1)#10) +2 

700 IF FRC=2 THEN PRINT'"Vous n'avez pas de chance du tout, l'ordinateur n 
e vous attribut que 2 pointsde valeur" 

710 IF FRC92 AND FRC<=5 THEN PRINT"Vous n'avez pas beaucoup':PRINT'de cha 
nce, l'ordinateur ":PRINT"vous donne "FRC:" points de":PRINT'valeur" 

720 IF FRC)5 AND FRC(10 THEN PRINT"Vous avez de La chance, l'ordinateur 
vous donne  ":FRC:" points de valeur" 

730 IF FRC)=10 AND FRC(=12 THEN PRINT'L'ordinateur vous aoprecie":"vraine 
nt beaucoup, il vous": "donne"FRC'points de valeur" 

740 PRINT 

750 ‘ HEFHEEEANHERT 

760 ‘ + RENCONTRE # 

TO ‘ HAFEHANANEEH 

780 FOR ATT=0 TO SOO0:NEXT ATT:CLS 

790 CLS #5:CLS #4 

800 LOCATE #1,1,2:PRINT #1," "FRE 

B10 GOSUE 880 


820 IF FRC<O THEN 3900 

830 RC=INT(RND(1)#100)+! 

B40 IF RC{=40 THEN 1050 

850 IF RC{=65 THEN 2100 

860 IF RC<=90 THEN 3130 

870 IF RC(=100 THEN 2380 

880 ‘ TABLEAU DES ARMES 

890 LOCATE #2,1.1 

900 PRINT#2. "Armes 1": PRINT#2,"" 

910 FOR D=i TO 120 

920 IF ARM(DI=0 THEN 950 

930 IF ARM(DI=12 THEN PRINT #2,"Enee de Feu":G0T0 950 
640 PRINT #2,ARH$(ARMID) ): TAB(9) AR (D) 

950 NEXT D 

860 ‘ TABLEAU DES TRESDRS 

970 LOCATE #3,1,1 

980 PRINT#3,"Tresors :":PRINTHS."" 

990 FOR D=1 TO 6 

1000 IF TRES(D)=0 THEN 1020 

1016 PRINT #3,TRES#(TRES(D)): TAB(9)TRES (D) 

1020 NEXT D 

1030 IF ROUTI=6 AND DRAGON:1 THEN 4090 

1040 RETURN 

1050 " HRAEÉFEREERMER ERREUR EEE 

1060 ‘ # RENCONTRE AVEC UN MONSTRE # 

LOTO RER RPERE EEE REEE 

1080 ‘ TYPE DE MONSTRE 

1090 TDM=INTIRND(1}#100) +1 

1100 IF TDM€=2 THEN M£z'o Licorne‘:B=5:G60T0 1506 
1110 IF TOM<2<5 THEN M$=" Centaure":8=8:60T0 1300 
1120 IF TDM<=8 THEN M$=" Spectre":B=4:60T0 1300 
1130 IF TDM<=10 THEN M$=" Gobelin":B:3:6070 1300 
1140 IF TDM<=13 THEN Mt=" Souelette":B=4:GOTO 1300 
1150 IF TDM£=16 THEN M$="e Sorciere":B=5:60T0 1300 
1160 IF TOM<=19 THEN M$=" Sphinx":B=6:GÛTD 1300 
1170 IF TDM<=21 THEN M$="e Chinere":B=8:G0T0 1300 
1180 IF TDM<=24 THEN M$=" Titan":B=10:60T0 1300 
1190 IF TDMC=27 THEN M$=" Denon":B=4:G0TO 1300 
1200 IF TDM<=30 THEN M$=" Fantome":B=6:60TD 1300 
1210 IF TDM<=32 THEN M$="e Monie":B=5:G60T0 1300 
1220 IF TDMC=35 THEN M$=" Diable":B=5:G60T0 1300 
1230 IF TDM<=38 THEN M$=" Griffon":B=6:60T0 1300 


1240 IF TDM<=47 THEN M$=" Cobra":B=5:G60T0 1300 

1250 IF TDM<=57 THEN M$=" Troll":B=9:60T0 1300 

1260 IF TDM<=66 THEN M$="e Goule":B=2:G60T0 1300 

1270 IF TDM<=76 THEN M$=" Vampire":B=6:G60T0 1300 

1280 IF TDM<=85 THEN N$=" Gnone":B=5:60T0 1500 

1290 IF TDM<=100 THEN M$=" Balrog":B=8:60T0 1300 

1300 ‘ FORCE DU MONSTRE 

1310 FDM=B+(INT(RND(1}#3)) 

1320 PRINT" Vous etes attaque par":PRINT"un"M#" de force"FDM 

1330 PRINT #5,"Monstre :" 

1340 PRINT #5,"Un"M$" Force"FDM 

1350 PRINT 

1360 SOUND 1,319,16,5:SOUND 1,239,16,5:SOUND 1,253,16,5:SOUND 1,284,16,5 
1370 SOUND 1,253,48,5: SOUND 1,239,16,5:SOUND 1,213,48,5: SOUND 1,190,16,5 
1380 SOUND 1,213,16,5:SOUND 1,239,16,5:SOUND 1.253.16,5:SOUND 1,239,32,5 
1390 SOUND 1,253,16,5: SOUND 1,284,48,5: SOUND 1,319,48,5 

1400 REM  #HH#X##HEH 

1410 REM x COMBAT # 

1420 REM  x####44#4#444 

1430 INPUT'Voulez-vous combattre ce monstre (0/N) ",DESIR$ 

1440 IF DESIR$="0" OR DESIR$="0o" THEN 1460 

1450 IF DESIR$="N" OR DESIR$="n" THEN 2050 ELSE 1430 

1460 HARAS 

1470 * + CHOIX DE L'ARME * 

1480 CPPTETITETITE ETS 

1490 PRINT 

1500 PRINT "Avec quelle arme voulez- vous combattre ?": INPUT " ( Si vou 
5 n'avez pas d'arme tapez 0 )":VARM 

1510 FOR V=0 TO 120 

1520 IF ARM(V)=VARM OR VARM=0 THEN ABUS=0 : GOTO 1570 

1530 NEXT V 

1540 PRINT"Vous ne possedez pas cette arme ":ABUS=ABUS+1 

1530 IF ABUS=10 THEN VARM=0:G0T0 1570 

1560 GOTO 1460 


1570 ‘ DETTTS TESTS TSS ES 
1580 ‘ # CALCUL DU COMBAT +# 
1590 ‘ AREAS 
1600 PRINT 


1610 PRINT'Pour engager le combat tapez sur une touche":PRINT 
1620 CA=CA+! 

1630 IF INKEY$()"" THEN 1650 

1640 GOTD 1820 


1650 VCOMB=FDM-VARN 
1860 IF VARM)FDM THEN VCOMB=0 


1670 PRINT'Le combat est de force"VCOME 


1680 LOCATE #4,1,1:PRINT#4, "Des" 
1690 FOR A=1 TO 20:5OUND f,60,1,2 
1700 DES=INT(RND(11#10) +2 

1710 DES#= (RIGHTS (STR$ (DES) ,2}) 
1720 LOCATE #4,1,2:PRINT #4,DES$ 
1730 FOR B=1 TO IQO:NEXT B 

1749 NEXT A:SOUND 1,119,5,2 

1730 IF DESCVCOMB THEN 1910 

1760 IF DES)VCOME THEN 1780 

1770 IF DES=VCOMB THEN 1850 


1780 ‘ PTTTTTIEL 
1790 ‘ * GAGNE + 
1800 ‘ POPETITIS. 


1810 FRC=FRC+VCOMB 

1820 PRINT'Vous avez gagne, les des 
1850 PRINT 

1840 G0TO 750 


1850 PTTTTIÉISTTIIITT EST: 
1860 ‘ # LE MONSTRE FUIT # 
1870 [PTETT TESTS LIIS STE 


1880 PRINT'Le monstre fuit, les des 
1890 PRINT 
1900 GOTO 730 


1910 ‘ PTIT TI 
1920 ‘ + PERDU +# 
1930 ‘ [TELLE SE) 


1940 FRC=FRC-VCOMEB 

1950 PRINT'Vous avez perdu, les des 
1960 PRINT 

1970 IF VARN=0 THEN 750 

1980 FOR D=i TO 120 

1990 IF ARMID){>VARM THEN NEÏT D 
2000 ARM(D)=0 

2010 NbArmes=NbArmes-1 

2020 CLS #2 

2030 GOSUE 880 

2040 GOTO 750 


ont fait "DES 


ont fait "DES 


ont fait "DES 


2050 ‘ PETEFEFSIFEITISS ITS 

2060 # RETRAIT DE POINTS # 

2070 ‘ HRRFERHHENRERERASEEHE 

2080 FRC=FRC-FDM 

2090 GOTO 750 

2100 ‘ HAHAIREHANENEREENERAEEEENS 

2110 ‘ # RENCONTRE AVEC UN TRESOR # 

2120 ‘ HAFÉEREEIPANENENEERREEUUES EE 

2130 VTRES=INT (RND(1)#5}+8 

2140 IF RIGATS(TRESS$(VTRES) ,2)="ne" THEN T$="e " ELSE T$=" 

2190 PRINT"Vous avez trouve un"T$:PRINT TRES$(VTRES)" de valeur "VTRES 
2160 PRINT 

2170 SOUND 1,71,24,5:SOUND 1,60,48,53:SOUND 1,53,24,5:SOUND 1,47,98,5 
2180 SOUND 1,53,24,5:SOUND 1,60,24,5:S0UND 1,53,24,5: SOUND 1,60,24,5 
2190 SOUND 1,63,24,5: SOUND 1,71,120,5 


2200 ‘ PTS TITI TITIT TE 
2210 ‘ * ACHAT DU TRESUR ? * 
2220 ‘ HARRRREERHERERESHÉRREX 


2230 IF ROUTI=6 THEN PRINT'Mais vous avez deja les 5 tresors":PRINT:G0TO 
750 

2240 FOR D=1 T0 5 

2250 IF TRES(D)=VTRES THEN PRINT'Mais vous possedez deja untresor de cett 
e valeur ":PRINT:G0TO 750 

2260 NEXT D 

2270 IF FRCXVUTRES THEN PRINT'Mais ce tresor est troo cher oovr votre bo 
urse":PRINT:G60T0 750 

2280 INPUT "Voulez-vous l'acheter ? (D/N) ":DESIRS 

2290 IF DESIR$="0" OR DESIR#="0" THEN 2310 

2300 IF DESIR$="N" OR DESIR$="n" THEN 750 ELSE 2280 


2310 ‘ HRHEFHERERREREEREERERERFÉEEEEEE 
2320 ‘ # CALCUL DE L'ACHAT DU TRESDR +# 
2330 ÉTITITESEETTSIITIT IT TIIITI TT 11) 


2340 TRES(ROUTI)=VTRES 

2330 ROUTI=ROUTI+1 

2360 FRC=FRC-VTRES 

2370 6070 750 

2380 ‘ HARFAEEREEFANEEERNENHÉREEEREE 

2390 ‘ # RENCONTRE AVEC LE SORCIER * 

2400 * HAAHEREREENEERENEEEENENHERE 

2410 PRINT" Vous rencontrez le sorcieret il vous propose son aide en vo 
us offrant un  sortilege,." 

2420 GOSUB 2490 


2430 SOUND 1,239,64,5:SOUND 1,284,32,5: SOUND 1,284,48,5: SOUND 1,301,16,5 


2440 SOUND 1,284,32,9: SOUND 1,253,64,5:SOUND 1,301,32,5:SOUND 1,379,64,5 

2450 GOSUB 2490 

2460 SOUND 1,239,48,5:SOUND 1,253,16,5:SOUND 1,284,32,5:S0UND f,301.48,5 

2470 SOUND 1,338.16,9:SOUND 1,301,32,5:SOUND 1,284,128,5 

2480 GOTO 2530 

2490 SOUND 1,284,32,5: SOUND 1,239,64,5:SOUND 1,213,92,9:S0UND 1,190,48,5 
2500 SOUND 1,179,16,5:SOUND 1,190,32,5:SOUND 1,213,64,5 :SOUND 1,253,52,5 
2510 SOUND 1,319,48,5:SOUND 1,284,16,5:SOUND 1.253,32, 

2320 RETURN 


PORT TT TITI ES 
2540 ‘ + CONSULTATION # 
2550 ‘ HHAAEEEREHEHENEE 


2560 INFUT'Acceptez-vous ? (D/N) ",REP$ 

2570 IF REP$="0" OR REP$="o" THEN 2600 

2580 IF REP$="N" OR REP$="n" THEN FOR ATT=0 TO {500:NEXT ATT:CL5:G0TO 105 
ê 

2590 GOTO 2560 


200 ‘ HHRFERAEHEES 
2610 © + SORTILEGE + 
2670 OO HAAEHEHNNERE 


2830 SORT=INT(RND(I)#100)+1{ 

2640 IF SORT(=15 THEN 2730 

2850 IF SORT}15 AND SORT<=45 THEN 2790 

2660 IF SORT>45 AND SORT{=70 THEN 2830 

2470 IF SORT>70 AND SORT<=75 THEN 2940 

2680 IF SORT?75 AND SDRT=100 THEN 2690 

2690 REUTI=ROUTI-1:1F ROUTI=0 THEN ROUTI=1:G60T0 2650 

2706 TRES{ROUTI}=0 

2710 PRINT:PRINT" Le Sorcier vous retire un Tresor,":CLS #3:G0SUB 8B0 

2720 GOTO 2980 

2730 ARMIPARAM) =12 

2740 PARAM=PARAM+1 

2750 Nbârnes=NbÂrnest! 

2760 GOSUB 880 

2770 IF Nbôrmesti3 THEN PRINT:PRINT" Le Sorcier vous fait donde l'Enee d 
e feu grace à laquelle vous pourrez tuerle Dragon" ELSE 2960 

2780 G0TQ 2960 

2190 FRC=FRC+12 

2800 PRINT:PRINT" Le Sorcier vous offre unefiole qui contient un ele-xir, 
Grace a cette potion vous gagnez 12 points de Force," 


12 


2810 LOCATE #1,1,2:PRINT #1," "FRE 

2820 GOTO 2940 

2830 PRINT:PRINT'Le Sorcier vous offre deuxarmes de votre choix":PRINT 
2840 FOR E=i TO 2 

2850 IF Nbârnes>=12 THEN PRINT" Mais vous possedez deja 12 arnes.":G60T0 
2960 

2860 INPUT" Une arne de quelle Puis-sance desirez-vous ?",VARM 

2870 IF VARMC2 OR VARM)11 THEN 2860 

2880 ARM(PARAM)=VARM 

2890 FARAM=PARAN+] 

2900 NbArmes=NbArnest! 

2910 GOSUB 88B0:PRINT 

2920 NEÏT E 

2930 GOTO 2940 

2940 IF DRAGON=1 THEN 2800 ELSE PRINT:PRINT'Le Sorcier tue Le Bragon avot 
re place, vous n'aurez donc pas à le faire" 

2950 DRAGON=1 


2060 ‘ HAAAFEREEEENEEEHÉEEEEEERE 
2970 ‘ + COMBAT MONSTRE/DRAGON # 
2980 ‘  HAHAFEEÉAFARENÉERÉÉEREEES 


2990 FOR ATT=0 TO JOOO:NEXT ATT:CLS 
3000 IF DRAGON=I THEN 1050 

3010 I=INTIRND(I)#2)+1 

3020 IF [I=1 THEN 1050 

3030 ENV 1,6,4,5,9,-2,4,13,7,b,8,-1,5, 
3040 ENV 2,12,-2,6,13,9,6,8,-1,9,5,7,7 

3050 ENV 3,3,3,7,6,1,8,12,-3,4,7,3,3,3,-2,2 

3060 ENT 1,4,-1,8,5,7,9,4,6,7,9,-93,9,15,9, 

3070 ENT 2,9,4,7,12-1,9,6,1,8,8,-2:9,9,1 

3080 ENT 3,4,-1,8,6,-2,9,12,3,5,12,-1,4,5 

3090 SOUND 1,478,600,7,1,1,23 

3100 SOUND 2,598,580,6,2,2,11 

3110 SOUND 4,898,685,B,3,3,31 

3120 G0TO 3400 

JL3O ‘ HARAAAAEEHERRENNEEREÉEEEEEE 

3140 ‘ # RENCONTRE AVEC UNE ARME # 

JI5O ‘ HANAAIHENANENENEEENEREREEES 

3160 VARM=INT(RND(1)#10) +2 

3170 IF RIGHTS (ARMS(VARM) ,1)="e" THEN T$s'e " ELSE T$=" " 

3180 PRINT'Vous avez trouve un"T$:PRINT ARM$(VARM)" de valeur "VERM 

3190 PRINT 

3200 SOUND 1,478,24,5:SOUND 1,638,12,5:S0UND 1,478,12,5:SOUND 1,426,48,5 
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3210 SOUND 1,379,24,5:SOUND 1,478,12,5:SOUND 1,379,12,9:SOUND 1,319,48,5 
3220 SOUND 1,284,12,3:SOUND 1,319,12,5:SQUND 1,284,12,5:SQUND 1,253,12.5 
3230 SOUND 1,239,48,5 


3240 ” PETITES TES ESS LIIS TS TES 
3250 ‘ + ACHAT DE L'ARME ? # 
3240 ‘ HÉRHÉRERÉEEÉNSERERSÉS 


3270 IF FRE<VARM THEN PRINT'Vous ne nouvez pas achetercette arme":PRINTIG 
OTD 750 

3280 IF NbArnes)=12 THEN PRINT'Vous avez deja 12 armes":PRINT:G60T0 750 
3290 INPUT"Voulez-vous l'acheter ?  (O/N) “:DESIR$ 

3300 IF DESIR$="0" OR DESIR$="0o" THEN 3320 

3310 IF DESIR£="N" OR DESIR#="n" THEN 750 ELSE 3290 


33260 ‘ PATETTTTII TITI 111 12 11112 
3330 ‘ # CALCUL DE L'ACHAT DE L'ARME # 
3:40 ‘ PATTES STI TITI IT II 111151111111 


33560 ARMIPARAM) =VARH 

3360 FARAM=PARAM+1 

3370 NbÂrnes=Nbârnes+] 

3380 FRC=FRC-VARM 

3390 G60TO 750 

3400 ‘ HRAEAHERAEREÉIESHRERHEERE 

3410 ‘ # COMBAT AVEC LE DRAGON + 

34720 ‘ HASRARÉEINEIRANERHERRRESS 

3430 PRINT" Un monstrueux Dragon de force 12 £e dresce devant vous : ça 
bouche crache des Flamnes, ":PRINT:PRINT #5,'"MONSTRE :": PRINT 4#5,"Un Dra 
gon de Force 12" 

3440 INPUT"Voulez-vous le combattre ";REP$ 

3450 IF REP$="N" OR REP$="n" THEN 3900 

3460 IF REP$="0" OR REP$="0" THEN 3480 

3470 G6OTO 3440 


3480 ‘ HAAHEHHEENRERRERER 

3490 " x CHOIX DE L'ARME * 

3900 ‘  HAHFERHÉEIPHEEHÉER 

3510 PRINT:PRINT "Avec quelle arme voulez- vous combattre ?":INPUT " 
Si vous n'avez pas d'arme tapez 0 )":VARM 


3520 FOR V=0 TO 120. 

3530 IF ARM(V)=VARM OR VARM=Q THEN ABUS:0 : GOTD 3580 
3940 NEXT V 

3990 PRINT"Vous ne possedez pas cette arne ":ABUS=ABUS+1 
3560 IF ABUS=+0 THEN VARM=0:G0T0 3580 

3570 GOTO 3480 


3500 ‘  HHAAENAENEHENESNEEEE 
3590 ‘ # CALCUL DU COMBAT * 

3600 ‘ #HHEFAAIEIFÉNFÉENSERS 

3610 PRINT:PRINT'Pour engager le combat tapez sur une touche":PRINT 
3620 CA=CA+I 

3630 IF INKEY#<)"" THEN 3650 

3640 GOTO 3620 

3650 VCOMB=12-VARH 

3660 IF VARM)12 THEN VCOMB=0 

3670 PRINT'Le combat est de force"VCDMB 

3680 LOCATE #4,1,1:PRINT#4, "Des" 

3690 FOR A=t TO 20:SOUND 1,60,1,2 

3700 DES=INT(RND({)#10)+2 

3719 DES$= (RIGHTS (STRS (DES) ,2)) 

3720 LOCATE #4,1,2:PRINT #4,DES$ 

3730 FOR B=] TO 100:NEXT B 

3740 NEXT A: SOUND 1,119,5,2 

3790 IF DES<VCOMB THEN 3900 

3760 IF DES)VCOMB THEN 3830 

3770 IF DES=VCOMB THEN 3740 


3780 ‘ PTT IT 111 
3790 ‘ * EX EQUD + 
3800 ” [PTIT IIS 


3810 PRINT" Vous n'avez pas reussi a terrasser ce Dragon car les dec on 
t fait"; DES; "Vous allez de nouveau lui etre confronte" 
3820 G0TO 5440 


3830 ‘ HAFHHERES 
3840 ‘ * GAGNE * 
3850 HHRHEHEES 


3860 DRAGON=1:CLS HS: FRC=FRC+VCOMB:LOCATE #1,1,2:PRINT #1," "FRE 
3870 PRINT'Vous etes sorti victorieuxde ce terrible combat ‘ 

3880 FOR B=1 TO 2000: NEXT B 

3890 CLS:IF ROUTI=4 THEN 4090 ELSE 2100 


3900 ” PTTIITIL. 
3910 + MORT + 
3920 ÉTEPTEES 


3930 CLS:PRINT" Helas, les monstres du Manoir de Rochebrune ont eu rai 
son de votre courageet de votre temerite, vousempechant ainsi de mener a 
bien votre entreprise." 

3940 PRINT:PRINT" Vous n'avez pas reussi à tuer le Pere de la Belle Hele 
ne prisonniere de la Tour Noire, et a reunir les 5 Tresors du Manoir," 
3950 PRINT:PRINT" D'autres Chevaliers vont essayer de delivrer la Prin 


cesse mais votre prou-e5se restera celebre dans les villages de ce triste 
paye. ": PRINT 

3960 GOSUB 4050 

3970 SOUND 1.253,24 ,5:GOUND 1,284,24,5:SOUND 1,253,120,5 

3980 GOSUE 4050 

3600 SOUND 1,253.24,5:SOUND 1,239,24,5: SOUND 1,213,120,3:GSOUND 1.190,24,5 
4606 SOUND 1,179,.48,5: SOUND i,196,.24,5:SOUND 1,213,48,5:SOUND 1,270,24,5 

4616 SOUND 1,253,120,5 

4020 GOSUE 4050 

4030 SOUND 1,239,24,5:SQUND 1,253,24,5: SOUND 1,2B4,98,5 

4045 END 

80950 SOUND 1,284,24,5:GOUND 1,239,48,5: SOUND 1,284,24,5:SOUND 1,379,48,5 
4066 SOUND 1,284,24,5: SOUND 1,2239,120,5: SOUND 1,213,24,5:SOUND 1,190,24,5 

4670 SOUND 1,213,24,9: SOUND 1,239,24,5:SOUND 1,253,24,5 

4080 RETURN 


40990 ‘ EHHYEHEEE 
4100 ‘ + GLOIRE + 
QUIQ ‘ HREHHHENEE 


4120 CLS:PRINT" Vous avez vaincu le Baronde Rochebrune et reuni les5 Tres 
ors, ce qui vous donne l'acces a la Tour Noire dans laquelle vous à 
ttend la Belle Helene, ":PRINT 

4130 IF INKEY#="" THEN 4130 ELSE CLS 

4140 PRINT" La Mort du Dragon marque la fin du malefice que le Baron avai 
t jete sur ce pays :":PRINT 

4150 PRINT'Un vent violent chasse lesnuages noirs qui s'etaientamonceles 

et decouvre un ciel d'azur.":PRINT 

4160 PRINT" Aores votre depart, les villageois virent Le Cha- teau s'emb 
raser et quand la fumee se dissipa, il nerestait plus pierre sur  pierr 
e, Pendant des siecles rien ne poussa en ces lieux," 

4170 PRINT 

4180 ENV 1,15,-1,5 


4190 SOUND 1.478,32,15,1:SOUND 1,358,32,15,1 
4200 SOUND 1,358,16,19,1:SOUND 1,319,16,15,1 
4210 SOUND 1,284,52,15,1:SOUND 1.358.32,15,1 
4220 SOUND 1,239,64,15,1:SOUND 1,284,48,15,1 
4230 SOUND 1,284,16,15,{:SOUND 1,268,32,15,1 
4240 SOUND 1,299,16,15,1:SQUND 1,268,16,15,1 
4250 SOUND 1,284,16,195,1:SOUND 1,268,16,15,1 
4260 SOUND 1,299,32,19,1:SQUND 1,319,16,15,1 
4270 SOUND 1,358,1b,15,1:SOUND 1,319,16,15,1 
4280 SOUND 1,284,16,15,1:SOUND 1,319,32,15,1 
4290 SOUND 1,478,32,15,1:S0UND 1,358,32,15,1 
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4300 SOUND 1,358,16,15,:S0UND 1,319,16,15,1 
4310 SOUND 1,284,32,15,1:S0UND 1,358,32,19,1 
4320 SOUND, 1,239,64,15, 1: SQUND 1,284,48,15,1 
4330 SOUND 1,284,18,15,1:S0UND 1,268,16,15,1 
b,15,1 
8,15,1 
6,15,1 


4346 SOUND 1,239,16,15.1:SOUND 1,284,16, 
4330 SOUND 1,268,16,19,1:S0UND 1.319,48, 
4360 SOUND 1,358,16,19,1:SOUND 1,358,56, 
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LABELMATIC 


Michel ARCHAMBAULT 


EE rôle spécifique de ce programme de ‘‘qualité commerciale” est 
d'imprimer des adresses sur des étiquettes adhésives en continu, 
pour envois en nombre (‘’MAILING‘'}. Il possède toutes les fonctions 
d'un gestionnaire de fichiers classique, à savoir : mise à jour, recher- 
che, tri, etc. Le fait qu'il soit 100 % Basic ne nuit pas à la rapidité 
qui demeure plus que suffisante. 

ll dispose en outre des caractères AZERTY accentués et de sécurités 
anti-plantage afin d’être confié à une personne sans formation infor- 
matique (vérifié). 

Côté imprimante, il faut un modèle 80 colonnes de marque quelconque 
chargé avec des étiquettes en continu. Deux étiquettes par rangée de 
format normalisé 89x36, 102x36 ou 107x36 mm. Ce format 
importe peu car le centrage de chaque rubrique est automatique. Pour 
fixer les idées, disons le prix de revient moyen d'une étiquette adhé- 
sive est de l’ordre de 5 à 8 centimes TTC. 


LE PROGRAMME 


Ne sursautez pas à la vue de certains caractères bizarres au sein de 
certains mots : ils donneront à l'écran et sur imprimante des caractè- 
res accentués : a commercial=à ; anti-slash=c ; crochet 
ouvert + SHIFT taccolade ouverte) =é ; accolade fermée =è ; barre 
verticale =ù : crochet ouvert=® ; crochet fermé=8 (définitions en 


GOSUB 51000). 
LE MENU PRINCIPAL (1000) 
Il propose dix options. Après l'exécution de chacune d’entre elles, il 


y a toujours retour à ce menu. 
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Chaque option débute par une confirmation (O/N) pour les étourdis. 
Le nombre de fiches en RAM {maxi = 200) apparaît en haut à droite 
de l'écran. 

Tous les ‘’auestionnaires'’ utilisent le module 50000. Exemple, la ligne 
1150 : TEX$ rassemble tous les symboles d'options. Le module 50000 
fait quatre opérations : 

— il affiche, en bas de l'écran, la liste des réponses possibles, 

— il transforme les réponses en majuscules, 

— si la réponse n'est pas dans TEX$, il émet un BIP sonore et repose 
a question, 

— il retourne au programme le numéro K de l'option choisie. 


NOTE : Nous vous conseillons d'enregistrer d'abord sur une cassette 
à part les modules 50000 et 51000. Ils vous seront très utiles pour 
d'autres programmes ; il suffit de les joindre au programme en cours 
par MERGE"" 


LE FICHIER D'ADRESSES 


Il est mis dans un tableau DIM AD$(200,5}. Cela nous procure une 
grande souplesse d'utilisation (modification de fiches, recherche, tri, 
etc.). Seul défaut, ce grand tableau en RAM ralentit les opérations de 
sauvegarde sur cassette. Les ‘’rubriques’" ou “champs” de 0 à 5 sont 
les suivantes : 

O=nom, exemple ‘’Mr. Jean BERGER”" (22 caractères) 

1-=adresse 1, exemple ‘6 rue MACHIN”" (22 caractères) 

2 = adresse 2, lieu-dit, etc. (22 caractères) 

3= code postal (5 caractères) 

4= ville (16 caractères) 

5 = (facultatif) secteur de distribution (3 caractères) mais peut être porté 
à 11 caractères pour le numéro de téléphone, pays étranger ou toute 
autre remarque. 

Nos longueurs maximales en caractères sont arbitraires (= minimum). 
Vous pouvez élargir. 


LA PAGE D'ECRAN 


Elle représente une seule fiche à la fois. Elle spécifie si vous êtes en 
saisie ou en vision, son numéro, le titre de chaque champ, sa longueur 
en pointillés (en saisie), et en bas, un menu de trois lettres. 
S=fiche suivante 

P=fiche précédente 

F=FIN (retour au menu). 

En saisie, une quatrième option ‘‘E’' (Erreur), qui efface la fiche à l'écran. 


NOTE : Grâce à la commande LINE INPUT au lieu de INPUT, on peut 
entrer des virgules et des guillemets. 


LA VISION 


La vision du fichier fiche par fiche peut se faire en donnant le numéro 
de fiche ou par recherche du nom, même une partie du nom. Ainsi, 
‘"RCHAMB"" présentera la fiche ‘ARCHAMBAULT”" ; "RAT" peut pré- 
senter la fiche de M. GARRAT, puis celle de Mme. RAT, mais ‘’ RAT" 
(un espace devant) ne conduira qu'à Mme. RAT. 


LE TRI 


Ou classement peut se faire d'après n'importe quel champ (classement 
alphabétique, ordre ASCII). Nous utilisons ici le ‘tri à bulle”, la “bulle” 
étant l'indice zéro du tableau DIM. Un tri sur un grand désordre peut 
demander près de cinq minutes, mais s'il s'agit de mettre en place quel- 
ques fiches nouvellement entrées (‘’suite de saisie'‘}, cela ne prend que 
quelques secondes. 


LA SAUVEGARDE DU FICHIER 


Elle débute par le nombre de fiches en RAM (NF), le nom du fichier (à 
entrer au clavier) et enfin le contenu des fiches. A la lecture, il n'est 
pas utile d'entrer ce nom (tapez ENTER). 


L'IMPRESSION 


Elle peut se faire sous deux modes. La ‘’'GLOBALE”" ou ligne à ligne : 
sur une ligne, on a le numéro puis le contenu de la fiche. C'est un lis- 
ting personnel. Enfin, le ‘’LABEL'" {= étiquette) qui vous dernande le 
numéro de départ et le numéro final. Pour éditer tout le fichier, tapez 
‘1’ puis ‘’D'' (= dernier). 


TRES IMPORTANT : En lignes 8100 et 9060, figure l'ordre 
CHRS$S(27)'""R'"'CHR$S(1) qui, sur les imprimantes de la marque EPSON 
(et assimilées), conduit aux caractères français (à, 6, à, ü, ç,...). 
Consultez la notice de la vôtre afin de modifier ou confirmer ce code. 
Si votre imprimante n'a pas cette possibilité (par code ou par switches), 
supprimez cette commande. 

Le listing présenté fait 7391 octets, soit 4 ‘blocks. 
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CONSEILS D'UTILISATION 


Suppression de fiche 

Appelez cette fiche par l'option modification ; elle apparaît vide. Met- 
tez des ‘‘zzzzz'" dans chaque champ. Si vous refaites un tri, elle ira 
en bout de liste. Sinon, laissez-la en place, mais lors de la prochaine 
suite de saisie, recherchez par ‘‘zzz'", modification, et ‘‘remplissage” 
par la nouvelle personne. 


Adresses commerciales | 
Utilisez le champ adresse 1 pour le nom du service, et ‘’adresse 2" 
pour l'adresse proprement dite. 


COMMANDE DU MAGNETO-CASSETTE 


Il est normal que l'écran paraisse bloqué quelques instants (absence 
du curseur) avant et après un enregistrement de fichier. C’est 
l'AMSTRAD qui réorganise sa RAM, et le tableau DIM le gène un peu. 
Ce temps augmente avec la taille du fichier. 

Un bug de l'AMSTRAD : au-delà de 90 fiches (environ), l'écran devrait 
afficher ‘Saving - nom du fichier - Block 1’. Or, à la place du nom 
attendu, apparaissent parfois des fragments de chaînes du fichier ! Sans 
importance, le nom réel que vous avez tapé ( =FICH$) est une des don- 
nées enregistrées. 


LA PLACE MEMOIRE 


Avec notre fichier personnel de 112 fiches en RAM, il reste 25574 
octets disponibles ! On doit donc pouvoir dépasser les 200 fiches ini- 
tialement prévues. Toutefois, il est plus pratique de fractionner en 
fichiers de tailles raisonnables. 

Pour savoir ce qui vous reste, tapez ‘‘F'' au menu principal, puis PRINT 
FRE {"" “), et enfin GOTO 1000 pour revenir au programme. 


1-Mr DUPONT Jacques: 15 rue AMPERE La VIGERIE 47123 St MARTIN #Secteur 1% 
2—-Mlle HEVRARD Fenée:B Allée des LILAS 66234 MONTLOUIS #Secteur 15 

Z-Mr ,Mme GALVIN Faul:Villa "LES CHENES" Lotissement LE ROIS 77957 TRAMIENS 
#Secteur B 

4-DUCHNOCK SARL:Gervice du Fersonnel 12-56 Kd MAGENTA 21897 SAINT FAISANT 
#Secteur 7 


Mr DUPONT Jacques Mile HEVRARD Renée 
15 rue AMPERE 6 Aliée des LILAS 
La VIGERIE 
47123 St MARTIN 66234 MONTLOUIS 
15 
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Mr ,Mme GALVIN Paul OUCHNOCE SARL 
Villa "LES CHENES" Service du Férsonnel 
Lotissement LE KOIS 12-56 Bd MAGENTA 
77855 TRAMIENS 21857 SAINT FAISANT 
8 7 
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10 “LABEL-MATIC - Bnstrad - MA, 1985 

100 MODE O:RORDER 16:INK O,1:INK 1,24:PAPER 1: CLS 

110 LOCATE 1,7:PEN 12:PRINT LL ABEL--M AT I C" 

120 LOCATE 1,13:PEN 4:PRINT "Editeur d'Etiquettes 

130 LOCATE 2,21:PEN O:PRINT "M, Achambault-1985" 

140 FOR I=1 TO 3O000:NEXT 

200 MODE 1:BORDER 2:PAPER O:PEN 1:CL5S 

210 DIM AD$(200,5):DEFINT 4-1 

300 GOSUB 51000 

1006 ‘MENU PRINCIPAL 

1010 CLS:INK O1: INK 1,24 

1020 LOCATE 17,2:PEN S:PRINT "M E N U":PEN 2:LOCATE 29,2:PRINT NF:"fiches 
"PEN Ï 

1630 LOCATE 6,4:PRINT "N = Nouveau fichier" 

1040 LOCATE &,6:PRINT "C = Chargenent-lecture d'un fichier" 
1956 LOCATE 6,8:PRINT "S = Suite d'un fichier chargt" 

1060 LOCATE 6,10:PRINT "MH = Modification du fichier" 

1070 LOCATE 6,12:PRINT "E = Enregistrement sur cassette" 

1080 LOCATE 6,14:PRINT "V = Visionner ou rechercher" 

1090 LOCATE 6,16:PRINT "L = inpression en LABELS" 

1100 LOCATE 6,18:PRINT "6 = impression GLOBALE(en lionesl" 
1105 LOCATE 6,20:PRINT "T = TRI du Fichier" 

1110 LOCATE 6,22:PRINT "F = Fin" 

1150 TEX$="NCSMEVLETF":GOSUR 50000 

1160 ON K G0TO 2000,3000.4000,5000,6000,7000,8000,9000,12000,1500 
1170 GOTO 1000 

1500 ‘FINAL 

1510 CLS:LOCATE 10,12:PRINT "VOUS POUVEZ ETEINDRE, ": PRINT: PRINT 
{520 END 

2000 ‘ NOUVEAU FICHIER 

2610 CLS 

2020 LOCATE &,4:PRINT "CREATION D'UN NOUVEAU FICHIER: " 

2030 LOCATE 12,7:PRINT "{ 200 fiches maxi )° 

2040 LOCATE 3,12:PRINT "Nous effalons. Le Fichier en Minoire." 
2050 LOCATE 15,14:PRINT "D'ACCORD ?" 

2069 TEX$="ON":GOSUB 50000 

2070 IF K=2 THEN 1000 

2080 N=i:NF=0:G0SUB 10000 

2090 NF=N:G60TO 1000 

3000 ‘ CHARGEMENT FICHIER 

3010 CLS:LOCATE 3,3:PRINT "LECTURE D'UN FICHIER SUR CASSETTE: " 
3020 LOCATE 16,10:PRINT "D'ACCORD ?" 
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3030 TEX$="ON":GOSUB 50000 

3040 IF K=2 THEN 1000 

3050 CLS:LOCATE 12,5:LINE INPUT "NOM OU FICHIER: *,FICH$ 

3060 LOCATE 3,8:PRINT "Dis que la cassette est positionn(e" 
3070 LOCATE 11,10:PRINT "Pressez une Touche," 

3080 WHILE INKEY$="":MEND 

3090 OPENIN FICH$ 

3100 INPUT #9.NF.FICH$#:FOR 1=1 TO NF:FOR J=0 TO 5: INPUT #9,AD#(I,JI:NEAT: 
NEXT 

3110 CLOSEIN 

3120 LOCATE 12,15:PRINT "Il-v-a"infi "Fiches," 

3130 FOR Iz1 TO 2500:NEXT 

3146 GOTO 1000 

4006 "SUITE DE SAISIE 

4610 CLS 

4020 LOCATE 2,4:PRINT "SUITE DE SAISIE DU FICHIER EN MEMOIRE, * 
4030 LOCATE 16,10:PRINT "D'ACCORD ?":TEX#$="ON":GOSUB 50000 
4040 IF Kz2 THEN 1000 

4050 N=NF+1:GOSUR 10000: NF=N 

4080 GOTO 1000 

3000 ‘HODIFICATION 

3010 CLS 

5020 LOCATE 10,5:PRINT "MODIFICATION DE FICHE:" 

5030 LOCATE 12,11:PRINT "{ Pour FIN --} 0 })" 

5040 LOCATE 12,9:]INPUT "QUEL NUMERO ?",NR$ 

3090 IF NR$="0" THEN 1000 

5060 NR=VALINR#):1F NR=0 OR NRONF THEN PRINT CHR$#(7::G0T0 5040 
3070 N=NR:G0SUB 10000:60T0 5000 

4000 ‘ENREGISTREMENT 

6010 CLS:LOCATE 7,5:PRINT "ENREGISTREMENT SUR CASSETTE!" 

6020 LOCATE 16,10:PRINT "D'ACCORD ?":TEX#$="ON":GOSUE 50000 
8630 IF K=2 THEN 1000 

6040 LOCATE 1,24:PRINT CHR$(1B):LOCATE 3,10:PRINT "Priparez une Cassette 
vierge,avec" 

6050 LOCATE 3,12:PRINT "amorce avancte," 

6076 LOCATE 12,15:LINE INPUT“NOM DU FICHIER: ",FICH$ 

6080 SPEED WRITE {:OPENOUT FICH$ 

6090 MRITE #9,NF,FICHS$:FOR I=1 TO NF:FOR J=0 TO S:HRITE #9.ADS$(I,J):NEXT: 
NEXT 

6100 CLOSEOUT 

6110 G60TO 1000 

7000 ‘VISIONNER,RECHERCHER 
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7010 CLS:LOCATE 12,4:PRINT "VISION ou RECHERCHE: " 

7020 LOCATE 6,8:PRINT "T = TOUS,depuis le d{but," 

7030 LOCATE 6,10:PRINT "N = Nuatro." 

7033 LOCATE 6,12:PRINT "R = Recherche d'un Non’ 

7040 LOCATE 6,14:PRINT "F = FIN." 

1050 TEX$="TNRF":GOSUB 5000û 

7060 ON K GOTD 7100,7200,7300,7500 

7100 N=1:G0SUB 11000:G0T0 7000 

7200 LOCATE 12,15: INPUT "QUEL NUMERO ?",NR$ 

7210 NR=VALINRSI:IF NR=O OR NRDNF THEN PRINT CHR$17):607T0 7200 

7220 N=NR:GOSUB 11000:60T0 7000 

7300 LOCATE 12,17:LINE INPUT "NOM cherch{:",.NM$ 

7310 FOR N=1 TO NF 

7320 IF INSTR(SADS EN, 0) ,NM$) >0 THEN GOSUB 11000 

7330 NEXT 

7500 60T0 1000 

B000 ‘ IMPRESSION 2 LABELS / B0 col, 

8010 CLS:LOCATE 8,5:PRINT "IMPRESSION DES ETIQUETTES:":LOCATE 16,11 :PRENT 
"D'ACCORD 7" 

8020 TEX$="ON":GOSUB 50000:1IF K=2 THEN 1000 

8030 CLS:LOCATE 7,5:PRINT "Deux Etiquettes par Ranote," 

8040 LOCATE 12,8:INPUT "NUMERO DEPART: ",ND$:ND=VAL (NDS; : IF ND=0 OR ND>=N 

F THEN PRINT CHR$(7):60T0 804 

8050 LOCATE 14,12:PRINT "{ D pour dernier )" 

8060 LOCATE 13,10: INPUT "NUMERO FINAL: ",NA$:IF UFPER$S(NA#)="D" THEN NA=N 

F:G0T0 8080 

8070 NA=VALINAS):IF NAÇEND OR NA2NF THEN 8060 

8080 LOCATE 10,17:PRINT "Vérifiez l'Imprinante,":LOCATE 9,19: PRINT "puis 

pressez une Touche." 

8090 WHILE INKEY$="":WEND 

8100 PRINT #8,CHR$(273"R'CHRS (1); 

. B120 FOR I=ND TO NA STEP 2 

8130 PRINT #8,SPC((37-LEN(AD#(T,0))1/2):AD$#(1,0): SPC (43S-LENCADS(T,0)))72 

}:SPC((40-LEN(AD#(1+1,0)))/2):AD#$(I+1,0) 

8140 PRINT #B,SPC((37-LEN(ADS(1,1)))/23:AD$(1,1):SPC((43-LEN(ADS(T,1)) 3/2 

}:SPC((40-LEN(AD#(1+1,1)))/2)s:AD$(I+1,1) 

BI50 PRINT #B,SPC((37-LEN(ADS(1,233)/2):4D$ (1,23: GPC((43-LEN(ADS (1,2) )) 72 
:SPCC(40-LEN(ADS(1+1,2))}/2):AD#(1+1,2) 

8160 PRINT #8,SPC(U3b-LEN(ADS(I,3)2)-LEN(ADS(T,4)))/2):AD$(1,3)5" "is ADS UT, 

4): SPC((42-LEN(ADS(I,3))-LEN(ADS(1,4)))/2):SPC{C41-LEN(AD#(1+1,3))-LEN(AD 

$(1+1,4))}/2):AD$(1+1,93):" "sAD$(I+1,4) 


24 


8170 PRINT #8,SPC(17):AD$(1,5):SPC(42}:AD$(I+1,5) 

8180 FOR J=1 TO 4:PRINT #8: NENT 

8190 NEXT 

8200 GOTQ 1000 

9000 ‘ IMPRESSION GLOBALE 

9010 CLSILOCATE 12,5:PRINT "IMPRESSION GLOBALE:" 

9020 LOCATE 12,7:PRINT "{ Ligne @ ligne }":LOCATE 16,11:PRINT "D'ACCORD ? 


9030 TEX$="ON":GOSUB 50000:IF K=2 THEN 1000 

9046 CLS:LOCATE 10,5:PRINT ‘Prtparez L'Imprinante,":LOCATE 9,10:FRINT ‘ou 
is pressez une Touche." 

9050 HHILE INKEV$="":UEND 

2060 PRINT #B,CHR$(27)"R'CHRS (1) : SPC((80-LENIFICH#))/2):FICH$ 

9070 PRINT #B:FOR I=1 TO NF 

3090 PRINT BBUSINE "###" ss PRINTHB,"-": ADS (I O)s "er ADS(T 135" se ADS(I, 
213" "iADS(T,3)1" "sADS(I,4):" #Secteur ":AD$(I,S):NEXT 

9100 PRINT #8,STRING#(78," ") 

6110 GOT0 1000 

10000 ‘ SAISIE 

10910 CLS: INK 0.13: INK 1,0 

10020 LOCATE 10,2:PRINT "SAISIE FICHE NUMERQ":N 

10030 LOCATE 13,5:PRINT STRINGS(22,CHR$ (144): CHR$ (1511 

10040 LOCATE 8,5:LINE INPUT "NOM: ",AD$(N,0) 

10050 IF LEN(ADS(N,0)1922 THEN AD$(N,O)=SLEFT# {ADS NO), 22): PRINT CHR#17) 
10060 LOCATE 13,7:PRINT STRING$(22,CHR#{144)):CHR# (151) 

10070 LOCATE 2,7:LINE INPUT "ADRESSE 1: ".ADS(N, 1) 

10080 IF LENCADS(N,1))322 THEN AD#(N,1)=LEFT#(AD#(N,1),22): PRINT CHR#(7) 
19090 LOCATE 13,9:PRINT STRINGS(22,CHR$1144)):CHR$ (151) 

10100 LOCATE 2,9:LINE INPUT "ADRESSE 2: ",AD$(N.2) 

19110 IF LEN(ADS(N,21)»22 THEN AD$(N,2)=LEFTS (ADS(N, 21,22): PRINT CHR$(7) 
10120 LOCATE 13,11:PRINT STRING$(5,CHR#(144)):CHR$# (151) 

19130 LOCATE 2,11:INPUT "CODE POST: ",AD$(N,3) 

10140 LOCATE 13,13:PRINT STRING#(16,CHR$(144)}:CHR#(151) 

10150 LOCATE 6,13:LINE INPUT "VILLE: ",AD$N,4) 

10160 IF LENCADS(N,4))218 THEN AD$(N,4)=LEFTS(ADS(N, 4) ,16):PRINT CHR#(7) 
10170 LOCATE 13,15:PRINT STRINGS(3,CHR$(144)):CHR$#(151) 

10180 LOCATE 4,15: INPUT "SECTEUR: ",AD$(N,5) 

10190 LOCATE 2,19:PRINT "SUITE (9) , ERREUR (E) , FIN (F) ?" 

10200 TEX$="SEF":G60SUB 50000 

19210 IF K=1 THEN N=N+1:60TO 10000 

10220 IF K=2 THEN 100600 

10230 RETURN 
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11000 ‘AFFICHAGE 

11010 CLS: INK 0,13: INK 1.0 

11020 LOCATE 10,2: PRINT "VISION FICHE NUMERO: N 

11030 LOCATE 8,5:PRINT "NOM: "ADS (NO) 

11040 LOCATE 2,7:PRINT "ADRESSE 1: ":AD$iN, 1) 

11050 LOCATE 2,9:PRINT "ADRESSE 2: ":AD$(N.2) 

11060 LOCATE 2,14:PRINT "CODE POST: “sAD#IN,Si 

11070 LOCATE 6,13:PRINT "VILLE: "3 AD$(N,4) 

11080 LOCATE 4,15:PRINT "SECTEUR: ":AD$N.5) 

11090 LOCATE B.19:PRINT ‘Précident , Suivant , Fin" 

11100 TEX#="PSF":GOSUB 50000:DN K GOTO 11200,11300,11400 

11200 N=N-1:IF N=Q THEN PRINT CHR$(7):N=Î 

11210 GQTO 11010 

11300 N=N+1:IF NDNF THEN PRINT CHR$(7):N=NF 

11310 6070 11010 

11400 RETURN 

12000 ‘TRI 

12610 CLS:LOCATE 13,4:PRINT “TRI DU FICHIER: ":LOCATE 16,11:PRINT "D'ACCOR 
D 7": TEXS= "ON": GOSUE SODO0:IF K=2 THEN 1000 

12020 CLS:LOCATE 13,4:PRINT "CRITERE DU TRI: ":LOCATE 9,8:PRINT "N = NOM" 
12030 LOCATE 9,10:FRINT "A = ADRESSE 1":LOCATE 9,12:PRINT “L = Lieu-dit { 
adresse 2:":LOCATE 9,14:PRINT "C = Code postal" 

12046 LOCATE 9,16:PRINT "V = VILLE":LOCATE 9,18:PRINT "S = SECTEUR" 
12050 TEY$="NALCVS":GOSUB 50000: T=K-1:LOCATE 16,21: PRINT "Patience..." 
12060 F=0:FOR d={ TO NF 

12070 IF AD#(J,1))=AD#(J-1,7) THEN 12090 

12080 FOR R=0 TO S:AD#(0,R)=AD8 JR) AD$ (JR) =AD# (9-1 ,R): AD$(T-1,R)=AD# (0 
(RIINEXTI = 

{2090 NEXT 

{2100 IF Fzi THEN 12060 

12110 60TO 1000 

50000 "REPONSE À UN MENU 

50016 LT2LENC(TEXS):R$="" 

50020 LOCATE 15-LT,24:PRINT "Rtoonse ("! 

50030 FOR 1=1 TO LT-{ 

50040 PRINT MID#(TEXS,1,1)1", "4: NEXT 

50050 PRINT RIGHT#(TEX$, 115") "3: CHR# (154); CHR$ (249) :CHR# (207) 

50060 TEXS=UPPERS(TEXS#) 

50070 MHILE R$="":R$=INKEYS$: END 

50080 R$=UPPERS (R$) :K=INSTRITEXS.RS) 

50090 IF K=0 THEN R$="":PRINT CHR#(7)::G0T0 50070 


50100 RETURN 

51000 ‘ AZERTY ACCENTUE 

31010 SYMBQL AFTER 7 

31020 SYMBOL 64,96,48,120,12,124,204,118,0 
51030 SYMBOL 91,0,56.108,58,0,0,0,0 

51040 SYMBOL 92,0,0,60,102,96,102,60,24 
31050 SYMBOL 93.60.96,60,102,60,4,80,0 
51060 SYMBOL 129,12,24,60,102,126,94,60,0 
31070 SYMBOL 124,48,24,102,102,102,102,82.0 
51080 SYHBOL 125,48,24,60,102,126,96.40,0 
31100 RETURN 

65335 ‘FIN DE LISTING 
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EN 


LA MÉMOIRE D'ÉCRAN 


Michel ARCHAMBAULT 


L° notions exposées dans cet article ne sont pas du tout indispen- 
sables pour devenir un bon progammeur en Basic ; elles permet- 
tent d'aller plus loin en triturant la zone mémoire de l'écran par des 
PEEK ou des POKE. Pour faire quoi ? 


Tout d'abord faire des programmes de ‘’HARD COPY’ qui exécutent 
sur imprimante une sorte de photocopie de l'écran en cours, surtout 
utile pour les graphismes (vous pourrez utiliser ces programmes même 
si vous ne comprenez pas leurs fonctionnements}. Avec ces notions, 
et de la patience, vous pourrez aussi créer des effets colorés inacces- 
sibles par les seules fonctions Basic. 


GENERALITES SUR LA MEMOIRE 


Le CPC 464, comme la plupart des micro-ordinateurs de moins de 
20 000 FF, utilise un microprocesseur ‘‘8 bits’’ (un octet). Pour aller 
chercher un octet en mémoire, il faut que ce dernier ait une adresse. 
Un octet peut prendre 256 valeurs possibles (256 = 25). Pour les adres- 
ses, disons un octet pour les ‘’colonnes'" et un octet pour les “‘lignes'* 
d'un ‘‘tableau d'adresses’, donc 256 x 256 = 65536 ‘'cases mémoire", 
qu'on numérote de O à 655365, C'est ce qu'on appelle 64 k-octets car 
le ‘’kilo-octet'’ vaut en réalité 1024 octets... Donc 64 k-o est le maxi- 
mum pour un micro 8 bits. 

Il faut les partager entre la ROM (le Basic résident) et la RAM (program- 
mes + variables en cours + les points lumineux envoyés à l'écran). 
Avec un Basic de 32 k-o, il ne resterait que 32 k-o pour la RAM, d'où 
vingt et quelques kilo-oktets disponibles pour programmes plus fichiers, 
c'est ce qui se passe avec les MSX et bien d'autres. Nous, nous avons 
32 k-o de Basic, 43 k-o disponibles + 16 k-o réservés à l'écran ! La 
raison de ce ‘’miracle’’ est que l'AMSTRAD ‘recharge et décharge” 
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la portion de la ROM dont il a besoin (c'est une vue d'esprit). De ce 
fait, une large partie de la RAM est plutôt ‘’'mouvante'", ce qui va don- 
ner bien du plaisir aux amateurs de PEEK et de POKE... 

La partie mémoire écran occupe une zone fixe, de 49152 à 65487, 
mais le fait que l’on puisse mélanger texte et graphisme, et ce en trois 
MODES, fait que sa structure est d'une extrême complexité inouie 
(même principe que sur les APPLE II, mais en pire). C'est ce qui expli- 
que que l'affichage des caractères est assez lent, exemple, quand on 
fait LIST sur un long programme. 

Dans le manuel, les adresses sont indiquées en hexadécimal (préfixe 
& et quatre caractères). || est pratique de savoir faire les conversions 
hexadécimal-décimal dans les deux sens (Note : le préfixe hexadéci- 
mal ne signifie pas ‘‘'six'" mais ‘‘seize''}. 


LES CONVERSIONS HEXA/DECIMAL/BINAIRE 


En binaire, on a deux symboles 1 et 0 ; en décimal, on a dix symboles 
O à 9; en hexa, on en a seize, O0 à 9 + A, B, C, D, Eet F 
(&F = 15;&A = 10). 

On représente la valeur d'un octet par deux symboles hexa, ainsi 
&FA = (256 x 15) +10= 250. II suffit de taper PRINT &FA et 250 appa- 
raît à l'écran. De même, &FF=256, c’est bien le maximum pour un 
octet. 

Une adresse tient sur deux octets, exemple &AFC8. Vous ne pouvez 
pas faire PRINT &AFC8 car l'AMSTRAD ne sait pas faire la conversion 
sur plus d'un octet, vous êtes obligé de décomposer : 


PRINT &AF*256 + &C8 


et la réponse apparaît : 45000. 
L'opération inverse est beaucoup plus facile : 


PRINT HEX$ (45000) 


l'écran répond AFC8 (le & est sous-entendu). 
Pour traduire une longue suite de valeurs hexa en décimal, vous gagne- 
rez du temps en utilisant ce très court programme : 


10 * CONVERSION HEXA --» DECIMAL 

20 INPUT "&",H$ 

36 H$=RIGHTS("0000"+H$,4) 

40 G$="k"+LEFTS(H$,2) 2 D$="R'4RIGHTS (HE, 21 
30 PRINT VAL(6$)#256+VAL (D#) 

60 PRINT:G60TD 20 

710 END 
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Passons à la représentation binaire d'un nombre. Tapez, par exemple : 
PRINT BIN${(45956), vous obtenez une suite de 16 bits 1 et O. Essayez 
maintenant PRINT BIN$(3), vous obtenez ‘‘1"’ (c'est une chaîne) ; avec 
PRINT BIN$(3,16), vous avez 14 zéros suivis de ‘11. 

Gare à l'opération inverse par &X, elle traduit cette ‘’image binaire” 
en un nombre dit entier, c'est-à-dire compris entre —-327869 et 
+32767 ! Un zéro suivi de quinze 1 donne 32767, tandis que 1 suivi 
de quinze zéros donne — 32768. 

Heureusement, vous n'avez pas à vous en préoccuper car dans la pra- 
tique les seules images binaires qui nous intéressent sont sur un octet, 
donc de 1 à 255. 


LE PLAN MEMOIRE DE L'ECRAN 


Nous y voilà ! 

Deux cent lignes horizontales de 80 octets chacune. Dans une ligne, 
les numéros d'octets se suivent de gauche à droite. Prenons le cas le 
plus simple, celui du MODE 2 : chaque bit représente un ‘‘pixel'" ou 
point à l'écran, ainsi 2568 fait un tiret continu {huit bits 1). La ligne en 
haut de l'écran va de 49152 à 49231, soit 80 x 8 = 640 points (ce qui 
explique qu'en coordonnées graphiques l'échelle horizontale aille de 1 
à 640). 

Hélas, l’octet suivant, le 49232, n'est pas au départ de la deuxième 
ligne mais huit lignes plus bas ! Et ainsi de suite au pas de 8 lignes. 
Après un premier ‘‘passage’’ de 25 lignes espacées de 8, commence 
le deuxième passage sur les lignes du dessous. Pour tout comprendre, 
essayez ceci : 


109 ‘ BALAYAGE DE L'ECRAN 
110 MQDE 2 

120 FAR 4=45152 T0 55487 
130 POKE 4,3 

140 NEXT 

150 END 


Un joli store vénitien ! 

Les figures 1 et 2 vous donnent le plan des adresses d'écran. Vous 
constatez qu'entre deux ‘’tirets'’ (deux octets) situés à l'écran, l'un en- 
dessous de l'autre, il ÿ a un écart de 2048 octets (= 2k-octets), 
qu'entre deux lignes d'un même ‘‘passage‘’ (donc espacées de 8 lignes 
d'écran), il y a un écart de 14336 octets. 

À présent, modifiez la ligne 110 en mettant MODE 1. Surprise ! Les 
traits sont rouges {= PEN 3). En ligne 110, mettez MODE O : les traits 
clignotent en rose/bleu ciel (=PEN 15). Nous abordons alors le code 
des couleurs en fonction du MODE. 
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AO octets 


(] 
a 
Fa] 
DL 
— 
C 
e) 
Ni 
L 
D 
x 
nn 
N 


49232 49233 a 
51280 =" 


LE CODAGE DES COULEURS 


En MODE 2, rien de plus simple : comme il n’y a que deux couleurs 
possibles, un bit 1 fait un pixel PEN, un bit. O un pixel PAPER (Pixel est 
la contraction anglaise de PICTURAL ELEMENT), 

Lancez ce programme qui va dessiner en O et 1 les images binaires des 
quatre premiers caractères sur un écran en MODE 2. 


200 ‘ IMAGE BINAIRE D'UN CARACTERE 
210 MODE 2 

220 CLS:PRINT "aV8/" 

230 FOR A=49152 TD 63491 STEP 2048 
240 FOR N=0 TO 3 

250 CB=PEEK(A4N) 

260 PRINT BIN$(CB,8);","; 

270 NEXT:PRINT CHR$(13) 

289 NEXT 

290 END 
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Le résultat est spectaculaire. On y retrouve les compositions illustrées 
dans le manuel AMSTRAD page A3.2 et suivantes. 

À présent, modifions la ligne 210 afin d'avoir MODE 1 (ou faites 
MODE 1:RUN 220). Oh |! Que c'est vilain ! Sur chaque ‘pavé’, on n'a 
qu'une moitié de chaque caractère. || faudrait accoller les moitiés gau- 
ches des pavés pour reconstituer le texte. Les moitiés droites des pavés 
{ou des octets) ne comportent que des 0. Ces zéros constituent en fait 
le code couleur de PEN (PEN 1 en ce cas) : apparions — les gauche 
+ droite, on a ‘01'’ quand il y a quelque chose à tracer, or &XO1=1 
(PEN 1). 

Tapons PEN 2 et, toujours en MODE 1, faisons RUN 220 : les 1 sont 
à droite et les zéros à gauche, &X10=2 (PEN 2). 

Tapons PEN 3 et même manœuvre. Dans chaque pavé, le demi carac- 
tère est répété à gauche et à droite, or &X11=3. 

Puisque dans chaque octet on associe un bit de la moitié droite à un 
de la moitié gauche, il n'y a que quatre combinaisons possibles : 


d'a, 6e {(=0) ; #01" (= 1) 
10" {= 2) et “TT (= 3) 


C'est pourquoi on n'a que quatre couleurs en MODE 1. 

Et que se passe-t-il sur l'écran vidéo ? Sur chaque image binaire d'un 
octet {le ‘’tiret’’}, chaque bit 1 est doublé, et dans la couleur du PEN. 
Un caractère occupe donc deux pavés, et comme il y a 80 octets par 
ligne, cela fait bien 40 caractères par ligne d'écran. 

En MODE O, c'est le même principe, mais en divisant par deux, un quart 
de caractère par pavé. Pour apparier les bits, on a alors 16 combinaisons 
possibles (les seize couleurs). À l'écran, chaque bit 1 est quadruplé dans 
la même couleur. 


LE HARD COPY D'ECRAN 


Il faut que votre imprimante possède l'instruction ‘BIT IMAGE", c'est 
le cas de la plupart des imprimantes ‘’à aiguilles" ou ‘’matricielles"”. 
En usage normal, une imprimante traduit l'octet reçu en dessinant le 
caractère ayant ce code ASCII, ici c'est beaucoup plus simpliste. Les 
huit aiguilles de la tête d'impression illustrent l'image binaire de cet 
octet. Ces dessins de bits vont être des ‘’barres”’ verticales, or sur 
l'écran ils sont horizontaux ! Il suffit de tourner notre graphisme d'un 
quart de tour sur le papier. L'imprimante commencera par le bord verti- 
cal gauche en terminant par le bord droit de l'écran ; le bas de l'écran 
sera donc le long de la marge gauche du papier. Ce n’est pas gênant. 
L'auteur utilise une EPSON RX80 (les modèles FX ont les mêmes 
codes). Si la vôtre est d’une autre marque, il va falloir modifier les libel- 
lés des codes de commande ; nous légenderons les nôtres afin que vous 
puissiez les traduire pour votre machine. Si vous trouvez les mêmes, 
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ne soyez pas surpris car une bonne quinzaine de ‘marques’ sont des 
EPSON rebaptisées. 

ll y a deux programmes différents, pour le MODE 2 et le MODE 1 (la 
version MODE O ne satisfait pas l'auteur). 

Il s'agit en fait de sous-programmes utilitaires 

55000 “HARD COPY AMSTRAD MODE 1 

55010 PRINT #8 

55020 DIM 2(200) 

55030 PRINT 4B,.CHR$ (27): CHR$ (64): CHR$ (2735 "3": CHRS (24): 

55040 PRINT #8,CHR$ (13) 

55050 PRINT #B,CHR$ (153: 

55060 FOR C0L:49152 TO 49231 STEP 2:1=0 

55070 FOR LI=COL T0 COL+1920 STEP 80 

55080 FOR T=LI TO LI+14336 STEP 2048 

55090 1=1+1:12$=LEFTS(BINSIPEEK(T),8),4)+  LEFT$(BINS(PEEK(T+1),8),4} 
55100 Z(I)=VAL("KE"+2#):IF 1=200 THEN GOSUB 55130 

55110 NEXT:NEXT:PRINT #8,CHR$ (13): NEXT 

59120 RETURN 

55130 PRINT 4#8,CHR$ (27); "K"3;CHR$ (100); CHR$ (0) 

59140 FOR J=200 TO 101 STEP -[ 

55150 PRINT #8,CHR$(Z(J))5:NEXT 

55160 PRINT #8,CHR$(27)5 "K"iCHR# (100) :CHR# (0): 

59170 FOR d=100 TO 1 STEP -1 

55180 PRINT #8,CHR$(21J))3:NEXT 

33190 RETURN 


Temps d'exécution 415‘. Format 112 x 84 mm. 


36000 “HARD COPY MODE 2 AMSTRAL 

30010 PRINT #8 

56020 DIM 2(200} 

36030 PRINT #B,CHR$ (27) 4 CHR$ (64) :CHR$ (27) "A": CHRS(B}: 
6040 PRINT #B,CHR$(13) 

36050 PRINT #B,CHR$(15): 

56060 FOR COL=49192 TO 49231:1=0 

36070 FOR LI=COL TO COL+1920 STEP 80 

36080 FOR T=LI T0 LI+14336 STEP 2048 

36090 I=[+1:2(I)=PEEK(T):1F [2200 THEN GOSUB 56120 
36100 NEXT:NEXT: PRINT #B,CHR# (13): NEXT 

96110 RETURN 
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36120 PRINT #B,CHRS (27): "K':CHRS (100) :CHRS (0): 
56130 FOR J=200 T0 151 STEP -1:P=7(J) 

36140 PRINT #B,CHRS (P):CHRS(O)::NEXT 

36130 PRINT #8,CHR$ (27): "K":CHR# (100) : CHR$ (0): 
56160 FOR J=150 T0 101 STEP -f:P=7(J) 

96170 PRINT #B,CHR$(P): CHR (O1: NEXT 

28180 PRINT #B,CHRS 127): "K":CHRS (106; :CHRS (0) : 
J6190 FOR J=106 TO S1 STEP -{:P=1(J) 

56200 PRINT RB,CHRS (PI): CHRS (QI 1 NEXT 

SÉZIG FRINT #E,CHRS (27): “RU: CHRS(1OG):CHRS 10: 
56220 FOR 9250 TO 1 STEP -i:P=1\; 

6250 PRINT #6,CHR$(P):CHR$O):: NEXT 

S8241 RETURN 


Temps d'exécution 730’. Format 225 x 170 mm. 


LEGENDES DES CODES EPSON 


CHR$(27);: CHR$(64) = vide le buffer (initialisation) 
CHR$(27);'"3"":CHR$(24) = interlignes de 24/216 de pouce 
CHR$(27);"A'"":CHRS$S(8) = interlignes de 8/72 de pouce 
CHR$(15) = caractères condensés (17 par pouce) 
CHR$(27);"K'"" = mode bit-image 


LE PRINCIPE 


On explore des bandes verticales de l'écran de largeur 1 octet. Ces 200 
octets sont mis en DIM Z puis ils sont retransmis à l'imprimante qui 
écrit donc une ligne. Passage à la colonne précédente et ainsi de suite. 
En jouant sur divers paramètres d'impression, nous sommes parvenus 
à restituer les proportions hauteur x largeur de l'écran (approximati- 
vemnent). En MODE O, nous ne sommes pas (encore) parvenus à obte- 
nir des dimensions d'image imprimées satisfaisantes, d'où l'absence 
de la version MODE ©. 

Très important : en MODE 1, les inscriptions doivent être en PEN 1 ou 
en PEN 3 (pas en PEN 2) car nous ne prenons que la moitié gauche 
des images binaires (ligne 55090). 

Suite à un petit bug de la ROM de l'EPSON RX 80, nous n'envoyons 
en ‘‘bit image’' que des suites de 50 ou 100 octets à la fois. 
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REMARQUE 


C'est aussi pour des raisons de proportions d'écran que les coordon- 
nées graphiques sont de 640 x 400 alors que logiquement ce serait 
640 x 200. 


CODAGE BINAIRE D'UN CARACTERE 


Vous voulez définir un caractère qui se trouve être un caractère exis- 
tant mais légèrement modifié. Vous trouvez fastidieux de redessiner 
sa grille 8 X 8 et de totaliser toutes ces lignes. Alors, utilisez ce pro- 
gramme qui vous fait instantanément tout ce travail. 


300 ‘ CODAGE BINAIRE D'UN CARACTERE 

310 INPUT "CARACTERE OU CODE ASCIT":C$: MODE ! 
320 IF VAL(C$)>92 THEN PRINT CHRS(VAL(CS3): SPC (23 :C$#:PRINT:G6DTO 340 
330 PRINT C$:5PC(2) «ASC (C$) : PRINT 

0 FOR A=49152 TO 63488 STEP 2048 

Q G$=LEFTS(BINS(PEEK (A) ,8),4) 

Q D$=LEFT$(BIN$(PEEK(A+1),8) ,4) 

) C$=6$+D$ 

80 PRINT C$:SPC(2) : VAL ("&X"4+C$) 

399 NEXT 

400 PRINT:60T0 310 

410 END 


4 
35 
36 
37 
ÿ 


Tapez indifféremment le caractère, s'il existe, au clavier ou son code 
ASCII. L'écran vous soumet sa fiche signalétique complète, à savoir : 
Le caractère, son code ASCII, sa configuration binaire en ‘1’ et ‘’0’’ 
et les totaux de chaque ligne. Exemple avec X majuscule : Code ASCII 
88, codage 198, 108, 56, 56, 108, 198, 198, O. 

Faites un autre essai en tapant 251. 

Ce programme refuse certains signes de ponctuation tels que + —, 
. &. En ce cas entrez le code ASCII. 
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[1] 


UN DÉSASSEMBLEUR 


Eddy DUTERTRE 


oici pour les amoureux du langage machine un petit désassem- 

bleur écrit en Basic qui leur permettra, entre autres, de percer les 
mystères du CPC 464. Dès le lancement par RUN, un choix est 
demandé par l'ordinateur quant au type de zone où doit être lancé le 
désassembleur (RAM ou ROM). 


En effet, dans l'AMSTRAD, la ROM n'est pas accessible directement, 
elle se trouve en ‘’OVERLAY"" sur la RAM et, pour sélectionner l'une 
ou l’autre, une petite routine en langage machine est nécessaire. Cette 
sélection faite, il suffit ensuite de donner en hexadécimal l'adresse de 
lancement du désassembleur. 

Dans le bas de l'écran, sont données quelques indications sur les options 
disponibles. La plus à gauche, intitulée ‘'SELECTION”' donne l'état 
RAM/ROM choisi précédemment. Les autres indications constituent le 
mode d'emploi. On y trouve : 


ESPACE = Suite 
Le désassemblage se fait par page d'écran, et pour poursuivre quand 
ce dernier est plein, il suffit d'appuyer sur la touche ‘Espace’. 


N = Nouvelle adresse 
Après avoir désassemblé une page, il peut être nécessaire de sauter 
à une autre adresse. Ceci se fait en appuyant sur la touche ‘’'N’' afin 
de revenir au menu. 


l-Imprimante ON/OFF 

Si l'on possède une imprimante, il peut être utile de conserver quel- 
ques listes désassemblées. Ceci se fait par appui sur la touche ‘‘l’’ cons- 
tituant un interrupteur de marche-arrêt de l'imprimante. L'état est donné 
en permanence au bas de l'écran et au lancement du programme, l'im- 
primante est inhibée. Un appui sur ‘‘l"" autorisera l'impression des pro- 
chaines lignes, un deuxième interdira, etc. 
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A= Arrêt 
Sortie du programme et réinitialisation de l'écran. 


(Les instructions sur IX et |Y ne sont pas désassemblées). 


[0 REM KEREHRRNMER HER ERRRR AR ERR RER EEE 


20 REM #+  -DESASSEMBLEUR- #+ 
30 REM *# #4 
40 REM *#  @-DUTERTRE EDDY #+ 
50 REM #+# #4 
60 REM #x .. 25/02/1985 ## 
70 REM ## ## 


BO REM HYMNE ERERERNRERNREEEEHREEREEEE 

90 DATA NOP,"2LD BC,","LD (BC),A",INC BC,INC B,DEC B,"ILD B,",RLEA,"EX ÀF 
,8F'","ADD HL,BC" 

100 DATA"LD A,(BC)",DEC BC,INC C,DEC C,"{LD C,",RRCA,"SDONZ ","2LD DE,"," 
LD (DE) ,A",INC DE 

110 DATA INC D,DEC D,"ILD D," ,RLA,"3JR ","ADD HL,DE","LD A,(DE)",DEC DE, Ï 
NC E,DEC E 

120 DATA"ILD E,",RRA, "SAR N2,","2LD HL,","4LD © },HL", INC HL,INC H,DEC 
H,"ILD H,",DAA 

130 DATA"3IR 2,","ADD HL,HL","ZLD HL,(  )",DEC HL,INC L,DEC L,"ILD L,", 
CPL,"3JR NC,","2LD SP," | 

140 DATA"4LD © ),A",INC SP,INC CHL),DEC (HL}, "LD (HL),",SCF, "SUR C.", 
"ADD HL,SP","SLD À,  )",DEC SP 

150 DATA INC À,DEC A,"ILD À,",CCF 

180 DATA RET NZ,POP BC."2JP NZ,","2JP ","2CALL NZ.",PUSH BC,"1ADD A,".RST 
O,RET Z,RET,"2JP 2,",,"2CALL Z,","2CALL ","IADC A," RST B,RET NC,POP DE, 
“2JP NC,","6OUT A" 

170 DATA"2CALL NC," ,PUSH DE,"1SUB "RST 16.RET C,EXX,"29P C,", "LIN AÀ,","2 
CALL C,",INST/IX,"1SBC À,",RST 24,RET PO,POP HL,"2JP PO,","EX (SP) ,HL","2 

CALL PO," ,PUSH HL,"1AND "RST 32 

180 DATA RET PE,JP (HL),"2JP PE,","EX DE,HL","2CALL PE,",-,"LXOR °,RST 40 
\RET P,POP AF,"29P P,",DI,"2CALL P,",PUSH AF,"1DR ",RST 4B,RET M,"LD 5P,H 

L°,"2JP M,",EI 

190 DATA "2CALL M,",INST/IY,"{CP "RST 56 

200 DATA LDI,CPI,INI,OUTI,,,,,LDD,CPD,IND,OUTD,,,,,LDIR,CPIR,INIR,OTIR,,, 
1, LDDR,CPDR, INDR,OTDR 

210 DATA"IN B,{C)","OUT (C),B","SRC HL,BC",*4LD ©  ),BC",NEG,RET N,IM 0 
"LD I,A","IN C,(C)","OUT (C),C","ADC HL,BC","7LD BC,U  )",,RETI ,'LDR 
A" "IN D,(C)","OUT (C),D","GBC HL,DE","4LD (  ),DE" 

220 REM ne pas effacer cette ligne 


230 DATA BACDSE HAL tHL) ABC, DE HLL, (HL) A 

240 DATA RLC,RRC,RL,RR,SLA,SRA, ,SRL,BIT,RESSET 

250 DATA"ADD A," ,"ADC A," "SUE ","SEC A," "AND ","XOR "DR "CP ‘ 

260 DATAKDF 04, LA, LC? 407, RAB, RFC, KA, ROD, 400, R32,ROE, RAB.HC9. 00,008 
CD. L60 ,HBB,N32,417,KABKC9 

270 MEMORY LOFFF: DIM R$(16),88(11) 

290 RESTORE 270: 00 

290 FOR N=0 TO 15:READ R$(NI:NEXT 

306 FOR N=0 TO IO:READ SIN: NEYT 

519 FOR N=ù TO 7:READ TE): NEXT 

220 FOR N=LABDO TO LABI6:RERD AsPOLE NA:NEXT 

330 MODE L:UINDOW 140,120: WINDON #1,1,40,21,25:DRIGIN 0,64: DRAN 439,0,1 


246 ORIGIN ü,46:DRAH 439,0, 1:0RIGIN 144,0: DRAU 0,44,1:LOCATE#1,1,2: PRINT 
{, "SELECTION" 

350 LOCATE #1,19,2:PRINTHI,"COMMANDES":LOCATE #1,11,4:PRINT#1,"ESPACE=Sui 

te K=Nouv,adresse! 

380 LOCATE #1,11,5:PRINT#{,"I=Imprimante DN/":CHR$ (24): "OFF": CHR# (24) 

370 LOCATE #1,33,5:PRINT#1,"A=Arret" 

380 CLS: PRINT'VQUS VOULEZ DESASSEMBLER UNE ZONE DE:" 

396 PRINT: PRINT"1-RAM": PRINT"2-ROM": PRINT: PRINT"VOTRE CHOIX ?" 

AGG GÉSINKEYS:GÉ<UPPERS (G#):IF 6$="" OR (6$<)*1" AND 6$<>"2" AND G$#(>"[") 
THEN 460 

Ai IF G$="I" THEN GOSUB 1340:G0TQ 400 

420 FRINTIPRINT:REVAL (GS): LOCATE #1,4,4:IF R=1 THEN PRINT#I,"RAM" ELSE PR 
INT#1, "ROM" 

430 A=0:B$=""e PRINT "ADRESSE DE DESASSEMBLAGE:,,.,," 

446 FOR N=0 TO 3 

450 A$=INKEYS: a$ziUPFERS(a$i: IF A$="" THEN 450 

GE IF A$="I" THEN GOSUB 1340:6070 450 

479 IF A$)"9* AND A$C"A" THEN 450 

4809 IF A$}"F" OR A$<"0" THEN 450 

490 LOCATE 26+N,9:PRINT A$:R$=R$+A$: NET 

500 A=VAL("&"4+B#)2 IF ACO THEN A=65534+4 

J10 CLS:FOR N=! T0 20 

920 PRINT UPPER$(E#):" *. 

230 P=A:GOSUE 1290:C$=HEX$ (D.2) :GOSUB 670: 60SUB 680 

940 LOCAÂTE 27,N:FOR M=4 TO A+I-1:P=M:GOSUR 1290: PRINT HEX$(D,2)5" "reNEXT 
: PRINT 

990 A=A+I:IF 4265535 THEN A=û 

J60 H$=HEX$(A,4):IF G=0 THEN 580 

370 FOR M=1 T0 49:LOCATE M,N:CALL &AB1O0:PRINTRB,CHRS (PEEK (&ABI7)):2:NEXT M 
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: PRINT#8 

580 NEXT N 

590 T$=INKEYS: T$=UPPERS(T$): IF T$=°" THEN 590 

b00 IF T$=" * THEN B$=HEXS(À,4):GOT0 510 

bi0 IF T$="I" THEN GOSUB 1540:60T0 590 

620 IF T$="N" THEN 360 

b30 IF T$="A"THEN HINDOM 1,40,1,25: CLS: END 

640 GOTO 590 

850 DATA IM 1,"LD A,I","IN E,(C)" "OUT (C),E","ADC HL,DE"."7LD DE, D" 
vel 2,"LD AGR"S"IN H,(CI"Q"QUT (0) ,H","SBC HL,HL","4LD © ),HL",,,.RR 
D,"IN L,(C)","OUT (C),L","ADC HL,HL","7ED DE, D)", RLD,,,"SBC HL,SP" 
660 DATA "A4LD € à,6P",,,,,"IN A,(C)", "OUT (0) ,A","ADC HL, SP", "7LD SP, i 


VE 


870 Y=VAL("R4MIDS(CS,1,1)): 2=VAL("E"4MIDS (CS, 2, 13): RETURN 
880 IF Y)3 AND YCB THEN 770 

890 IF D=203 THEN P=A+1:60SUB 1290:6070 820 

70ù IF D=237 THEN P=A+1:60SUB 1290:60T0 1060 

710 IF D=80D THEN PRINT'INST/IX :":6070 1360 

720 IF D=&FD THEN PRINT'INST/IY :":G60T0 1360 

730 IF D)127 AND D192 THEN 880 

740 IF DC&4 THEN 890 

750 IF D)191 THEN 1040 

740 PRINT: 121:RETURN 

170 IF Z=4 AND Y=7 THEN PRINT'HALT":1=1:RETURN 

780 PRINT'LD "s2K=(Y-4)#2 

790 IF ZCB THEN PRINT R$(K):",": 

800 IF 2)7 THEN PRINT R$(K41)5",": 

810 PRINT R$(Z):1=1:RETURN 

820 IF D)43 THEN 840 

830 K=INT(D/8):PRINT S$(K):" "2: G0SUB 670:PRINT R$2): [=2:RETURN 

840 k=INT(d/64)+7: PRINT 5$(k): 

850 k=INT(d/8)-8:1F d)191 THEN k=k-16 

860 IF d)127 AND d&192 THEN k=k-8 

870 PRINT k:","::C#=HEXS(D,2) :GOSUB 670:PRINT rf(z):i=22RETURN 

880 k=d-128:w=INT(k/B):PRINT tfin)::G60SUR 670: PRINT r$(z):i=1?RETURN 
890 p=INT(d/10) 

900 GOSUB 1170:FO0R 0=0 TO (d-p#0}:READ e$:NEXT 0 

910 ##=MID$(e$,1,1)21F ##)"9" THEN PRINT ef:i=1:RETURN 

920 PRINT MID$(e$,2): 

930 IF f$="1" THEN P=A+1:G0SUB 1290:PRINT HEXS(d,2): 
940 IF F$="2"THEN P=A+2:G08UB 1290:PRINT HEX$(D,21:: 
T HEXS(D,2):1=3:RETURN 


:RETURN 
| 


i=2 
P=A+1:GOSUB 1290: PRIN 


950 IF {$()"3" THEN 900 
960 P=A+1:60SUR 1290:PRINT HEXS(d,2):" (': 

970 IF d>127 THEN d=d-256 

980 H=at2+d:b$=HEXS (uw, 4): PRINT b$:")":i=2:RETURN 

990 IF #$="4" THEN LOCATE 13,n:f#="2":G60T0 940 

1600 IF f$="5" THEN LOCATE 15,n:f$="2":G0T0 940 

1010 IF f#="6" THEN LOCATE 13,n:f$="1":G60T0 930 

1020 IF f$="7" THEN LOCATE 16,n:f$="2":G0TO 940 

1030 PRINT: i21:RETURN 

1040 p=INT((d-192)/20)+7 

1050 GOSUB 1170:F0R g=0 T0 (d-192-(p-7)#20):READ e$:NEXT 96070 910 
1060 IF dé159 THEN 1090 

1070 RESTORE 200 | 

1080 FOR j=0 TO d-160:READ e$:NEXT: PRINT ef:i=2: RETURN 

1090 IF d)85 THEN 1120 

1100 RESTORE 210 

1110 FOR j=0 TO d-64:READ ef: NEXT:T=A:A=A+1:GOSUR 910:A=T:i=i+1: RETURN 
1120 IF d>114 THEN 1150 

1130 RESTORE 4650 

1140 d=d-22:6070 1110 

1150 RESTORE 640 

1téû d=d-51:60T0 1110 

{170 ON p+1 GOTO 1180,1190,1200,1210,1220,1230,1240.1250,1260,1270,1280 
{180 RESTORE 90:RETURN 

1190 RESTORE 100:RETURN 

1200 RESTORE 110:RETURN 

1210 RESTORE 120:RETURN 

1220 RESTORE 130: RETURN 

1230 RESTURE 140:RETURN 

1240 RESTORE 150:RETURN 

1250 RESTORE 140:RETURN 

1260 RESTORE 170:RETURN 

1270 RESTORE 180:RETURN 

1280 RESTORE 190:RETURN 

1290 IF R=1 THEN D=PEEK(P):RETURN 

1300 PH=INT(P/256) : PL=P-PH#256 

1310 POKE &ABOB,PL:POKE KABO9,PH 

1320 CALL &AB00 

1330 D=PEEK(RABOE) : RETURN 

1340 IF G=0 THEN O=1:LOCATER ,24,5:PRINT#1 ,CHRS (24) : "ON": CHR$(24):"/DFF"s 
RETURN 


1350 G=0:LOCATER 24,5: PRINT#1,"ON/":CHRS (24) : "OFF": CHR (24) : RETURN 

1360 P=A+1:GOSUB 1290 

1570 IF D=9 OR D=&19 OR D=29 OR D=&39 OR D=42B OR D=4ES DR D=423 OR D=$E 
S OR D=8F9 DR D=&EL OR D=4ES THEN I=2:RETURN 

1380 IF D=CB OR D=436 OR D=422 OR D=&24 OR D=&21 THEN I=4:RETURN 

1390 I=S2:RETURN 


Exenple de desassesblage sur iapriaante 


BF C4 PUSH AF 
DFCS PUSH HL 
9FC6 LD A,0 
DFC7 CPL 

DFC8 LO H,A 
DFC3 LO ñ,€ 
BFCR GPL 

DFCB LD L,A 
BFCL INC HL 
3FCD ADD‘ HL, EC 
BFCE INC HL 
DFCF EX CSP),HL 
F0 SÛR À 
DFC1 SUB E 
DFCE PUSH ÀF 
BFU:2 CELL SBHQ 
ÿFDS PUSH HL 
5FO7 LD H,E 
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AMSLOG 


Stéphane CLOIREC 


C Fest au MIT que Seymour PAPERT a développé un langage évo- 
lué, simple d'emploi, offrant pourtant des possibilités importan- 
tes : le LOGO. 


Ce langage est surtout orienté vers le graphisme, et est très facile d’ac- 
cès car chaque instruction LOGO se concrétise dans le déplacement 
d'une ‘‘tortue’’ à l'écran. L'auteur a alors devant lui une image réelle 
de ce qu'il vient de créer, et élabore peu à peu son graphisme en s'iden- 
tifiant à la petite tortue qui avance, tourne, recule sous ses ordres. 
Le LOGO est en général très gourmand en mémoire ; c'est pourquoi 
il est encore assez peu répandu et utilisé. Il est pourtant particulière- 
ment recommandé pour l'apprentissage de l'informatique et de la pro- 
grammation de par sa simplicité. 

Ce programme est une version simplifiée de ce langage ; il permet uni- 
quement de faire du graphisme. Il est programmé exclusivement en 
Basic : la rapidité d'exécution s’en ressent évidemment, mais cela per- 
mettra à tous ceux qui veulent l'améliorer, le modifier, de le faire faci- 
lement. AMSLOG comporte deux modes : 

— le premier est un mode direct : vous tapez votre instruction dans 
une fenêtre en bas d'écran, et l’interpréteur Basic l'exécute immédia- 
tement dans la fenêtre graphique. On rentre ainsi ses commandes une 
à une, et le résultat s'affiche au fur et à mesure ; 

— |e second est le mode ‘‘’programme’" : vous rentrez les instructions 
que comporte votre programme les unes après les autres ; vous pour- 
vez ensuite le lister, le modifier ou l'exécuter. Les numéros de ligne s'af- 
fichant automatiquement, il n'est pas nécessaire de les taper. Par 
contre, il est indispensable de bien respecter la syntaxe des instruc- 
tions, notamment pour les espaces et les paramètres. 

Quelques spécifications : 

— capacité de programmation : 100 lignes, une instruction par ligne, 
— 20 labels utilisés pour les branchements et les sauts (label X), 
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— 10 variables indicées V(x) [de V(0) à V(9)]. 

Voici les commandes de l'éditeur : 

E : exécute le programme. 

L : liste les 20 premières lignes du programme. 

LX : liste à partir de la ligne X. 

|: insère une ligne en décalant la première ligne du listing à l'écran vers 
le bas. 

D : délète la première ligne du listing à l'écran. 

G : permet de passer du mode programme au mode direct, et inverse- 
ment. 

H : donne la liste des instructions et leur syntaxe (Help). 

Q : quitte le programme. 

SAUVE : sauvegarde le programme LOGO sur cassette. 

CHARGE : charge un programme LOGO en mémoire. 

VAR V{x) : affiche la valeur de la variable V{x). 

Les instructions utilisables sont les suivantes : 

AVANCE x : dessine à l'écran un segment de droite de x pixels. 
DIRECTION x : la direction courante devient x, x étant un angle en 
degrés. 

DROITE x : tourne à droite de x degrés (de même GAUCHE x tourne 
à gauche). 

ORIGINE xxx.xxx : positionne l'origine graphique en xxx.xxx (atten- 
tion, il est indispensable de taper les coordonnées en 3 chiffres, sépa- 
rées par un point. Exemple : ORIGINE 320.200 place le curseur graphi- 
que en milieu d'écran). 

RECTANGLE xxx.xxx : dessine un rectangle dont les côtés mesurent 
xxx et xxx pixels (même remarque que pour ORIGINE). 

CERCLE x : trace un cercle de rayon x, et centre le dernier point tracé. 
EFFACE : efface l'écran. 

OUBLIER : efface le programme LOGO contenu en mémoire. 

SON : produit un BEEP bref. 

MODE x, ENCRE xx.xx, PAPIER x, STYLO x, BORD x : correspondent 
aux instructions AMSTRAD mode, ink, paper, pen, border (attention 
au mode employé pour le nombre de couleurs utilisables). 

AFFICHE EN xx.xx chaîne de caractères : affiche la chaîne de caractè- 
res à la position Xx.xx. 

V{x) = n : donne à la variable V{x) la valeur n. 

CALCUL DE V{x)= V{x) +n et CALCUL de V{x) = V{x}) -n : incrémen- 
tent ou décrémentent V(x) de la valeur n. 

LABEL x : positionne un label sur lequel vont s'effectuer les branche- 
ments et les sauts. 

VA AU LABEL x : saut inconditionnel au label X. 

SI V(x) = 0 VA AU LABEL n : teste si V{x}= 0, et si c'est exact, se rend 
au Label n. 

FIN : obligatoire en fin de programme. 
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REMARQUES 


— Toutes les instructions graphiques sont paramétrables à l'aide des 
variables V(x}, | 

— à l'origine; AMSLOG, se trouve en mode programme, 

— après un L ou un Lx, la ligne courante est la première du listing, 
— pour modifier une ligne x, il suffit donc de taper ‘‘’Lx’' puis la nou- 
velle ligne à la place, 

— si jamais le programme se ‘’plante'”, on peut le redémarrer par un 
‘’GOTO 8000” sans perdre le programme LOGO en mémoire, 

— de même, il est possible à tout moment de passer du mode direct 
au mode programme et vice-versa, sans perte du programme LOGO 
en mémoire. 


Enfin, voici quelques exemples de programmes courts et simples, illus- 
trant les possibilités de l'AMSLOG, et qui vous serviront d'exemples 
pour l'apprentissage du langage. 

1 efface 

2 V(1)=36 

3 Label 1 

4 avance 90 

5 droite 110 

6 calcul de V(1)=V(1)-1 

7 si V(1)=0 va au Label 2 

8 va au Label 1 

9 Label 2 
10 son 
11 fin 


Exécutez-le, puis entraînez-vous à le modifier (à titre d'exemple, tapez 
‘’DROITE 50" au lieu de ‘DROITE 110"). 


1 efface 

2 V(1)=25 

3 Label 1 

4 rectangle 100.050 
5 droite 115 


1 efface 

2 V(1)=36 

3 Label 1 

4 rectangle 100.050 
5 droite 110 


(La suite de ces deux programmes reste la même que celle du premier.) 


MN CII: SSI EEE TT 2122 
‘##} #44 
#4 AMSLOG #+4 
‘#4 +44 
F## PRESENTATION *#+ 
### +++ 
CORRE PRE EEE 


16 BORDER 0:INK 0,0 

15 CLEAR:MODE 1:RAD 

20 DIM PAL(14):FOR 150 TD 14:READ PAL(I):INK 1+1,PAL(I):NEXT 

30 DATA 9,6,15,24,25,22,21,12,13,1,2,5,4,14,26 

40 MODE O:CLG O:PAPER O:PEN 14 

50 ORIGIN 320,250 

60 FOR J=48 TO 108:I=J+#P1/52: MOVE COS(1)#220,SIN(1)#160-40:DRAW 0,0,J MOD 
13+1:NEXT 

10 FOR J=3 TO 23:FO0R K=-110 TO 110 STEP 220:1=J#P1/26: MOVE COS(1)#{00+K,S 
IN(I)#80-20: DRAH 0,0, (J+((K=110) AND 4)-2) MOD 13+1:NEXT K,J 

BQ LOCATE 8,2:PRINT'AMSLOG": ORIGIN 220,392: DRAWR 197,0: DRAMR 0,-32:DRAUR 

197,0: DRAHR 0,32 

99 FOR K=1 TO 10:FOR J=1 TO 13:FOR 1z1 T0 13 

‘ 100 INK I ,PAL((J+IIMOD 13H:NEXT [,J.K 

110 LOCATE 1,25:PRINT"Chargement en cours": RUN"anslogl" 


OO D 4 D UN BE LA F3 — 


LOU OHEHEREENEE RESF ER ERA H EEE RENE 


20 ‘ HRRFHEFEFE CRZETETITE 
JO ‘ FAHFERÉIE AMSLOG ÉRÉEAIHESE 
A0 ‘ EHKAHHEHES HHHEEFAEEE 
50 ‘ +#4 k#4 
60 ‘ ### (c) 1985 par Stephane CLOIREC ### 
10 ‘ #44 ##} 
BÛ ‘ HEREEENSIFIENENEEAREE EEE EEE 
10 © 

100 ‘ 

110 DEG 


120 SYMBOL AFTER 169:SYMBOL 166,46,k8,43C,kb6 RE, LÉO, BSC:KEY 131 ,CHR$LÉ 
b] 
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130 GOSUB 2650 

140 GOSUB 22B0 

150 coul=! 

166 DIM 5#1100) 

170 DIM 1129) 

180 HIM viiô) 

186 G0TQ 93û 

200 

240 7 b#er###34 INTERPRETEUREY6##Y%5 

220 ‘ 

2ù cezi:d=0 

24 IF co:100 THEN 1790 

SEÛ césificoi 

2EQ [IF LEFTS (c$,d)="mode" THEN PEN f:PAPER O:MODE VALIMID$(c$,4)):d=ûs2a 
25z0r2b=20û: ORIGIN za.2b:60T0 490 

270 ÏF LEFT$ ic$,4)="bord' THEN GOSUB 2010:6010 49û 

ERÜ IF LEFT$ (cf.S)="encre" THEN GOSUB 2070: G60T0 49ÿ 

250 IF LEFTS ic$,6}:"papier" THEN GOSUR 2110:6070 495 

300 IF LEFTS (cf.5i="etvlo" THEN GOSUB 2150:6070 490 

110 IF LEFTS (c$.b}="avance" THEN GOSUB 510:6070 490 

326 IF LEFTS cf,6)="éroite" GR LEFT$ (c$,6i="gauche" THEN GOSUR 560: 6070 
d5û 

330 [F LEFTS (c$,3)="#fin" THEN 1790 

340 IF LEFT$ {c$,6i="etface" THEN CLS#C:G0TD 490 

150 IF LEFTS (c$,5)="direction" THEN GOSUB 187):G6070 490 

360 IF LEFT$ ic$,7i="or1o1ne" THEN GOSUR [930:GGTO 496 

370 IF LEFTS (c$,lli="va au label" THEN cozi (VAL MIDS (c$,13:13:G0T0 490 
38û IF LEFTS ict,25="yt" THEN viVAL (MIDS (c$,3,(}5)=VAL (MIDÉ (c$,6)::60 
TO 49û 

290 ÏF LEFTS (cé,Si="e] vi" THEN GOSUE 680: 6070 490 

AGG IF LEFTS (cf.9}s"raleul de" THEN viVAL (MID$ (c$,13,1)))=viVAL (MID$ 
iC$,13,1)3)+VAL (MID£ (C$,261}:60T0 490 

416 IF LEFTS ic$,51="liste" THEN p=VAL IMID$ (cf,7)):G60SUE 1270:60T0 490 

420 IF LEFTS (c$,7i="atfiche" THEN LOCATE#aflao, VAL (MIDS de$,12,23,VAL 
(MID$ ie$,15,2):PRINT#oflag MID$(c#,18):G0T0 490 

d30 IF LEFTS (c$,5i="son" THEN SOUNE 1,89:607T0 490 

446 IF LEFT$ c$,9)="rectangle" THEN GOSUE 680:6070 490 

150 [F LEFTS(c$,45="cercle" THEN GOSUB 1680:607T9 490 

466 IF LEFT$icé,.5i="label]" THEN GOTC 4%û 

470 IF aflag=i THEN 2190 

480 6DTC 1610 

490 co=coti 
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500 GOTO 240 

310 ‘ 

D20 ‘ HRHHEEEEEAUANCERERAAHFNE 
330 ‘ 


540 IF MID$ (c$,8,1)="v" THEN xa=SIN (d)#v (VAL (MID (c$,10.1))):xb=C0S ( 
D)#V(VAL CHIDS (c$,10,1))}: DRAM xa,xb,coul:zazxatzat2b=xb#2b: ORIGIN za,zb 


RETURN. 


390 xa=SIN (d)+VAL (MIDS (c$,8)):xb=C0S (d)+#VAL (MIDS (c$.83):DRAN xa,xb, 


coulizasxatzat2b=xb+2b: ORIGIN 2a,2b:RETURN 

S60 ” 

570 ‘ KHHXE#SEEDROITE/GAUCHEE+444454 

380 ‘ 

590 IF MID$(ct,8,1)="v" THEN GOTO 640 

600 IF LEFT$ (c$,1)="d" THEN d=d#+{VAL (MID$ (c$,8))):RETURN 

410 IF LEFTS (c$,ii="g" THEN d=d-(VAL (MID (c$,8)3):RETURN 

620 GOSUE 1850 

630 RETURN 

640 IF LEFTS tc$,il="d" THEN d=dtv(VAL (MIDS (c$,.1041))) RETURN 
690 IF LEFT$ (c$,1)="g" THEN d=d-viVAL (MID$ (c$,10,1)))2 RETURN 
660 GOSUB 1650 

670 RETURN 

680 

b90 ‘ #HYEHAEERECTANGLEREERAREHS 

700 ‘ 

710 IF MID$(c£,11,1)2="v" OR MID$(c$,15,1)="v" THEN GOTO 770 

120 1O=VAL (MID$ (c$,11,3)}:)1=VAL (MID$ (c$,15)) 


730 ORIGIN 2a,2hixa=SIN(d)+#]0:xbz2C0S(di#10: DRAM va,xb,coul:28szatvaszhash 


+xb:DRIGIN za,2b 


740 d=d+90:xa=SINtd)+«11:xb=C0S(d)+11: DRAM xa,xb.coul:za=zatvatzbz=2h+xb: DR 


IGIN za,zb 


7130 d=d+90:xa=SIN(d)#10:xb=C0S (d)#10:DRAN xa.xb,coul:za=zatxaszb=2b+xb:0R 


IGIN 24a,2b 


160 d=d+90:xa=SIN(d)#liexb=C0S (d)#11: DRAM xa,xb,coul:za=zatxat2bzzb+xb: OR 


IGIN 2a,2b:d=d+90:RETURN 


170 IF MID$(c$,11,1)="v" THEN IF MID$(c$,16,1)="v" THEN l0=v{VAL(MID$(c$, 
13,1))}:11=v(VALIMIDS(c$,18,13)) ELSE 10=v{VAL(MID$(c#.13,1})):11=VAL (HI 


D$ (c$,16)) 


780 IF MID$(c$,15,11="v" THEN 1O=VAL (MID (c$,11,3)):11=v(VAL(MIDS(c$.17 


1})} 

790 G0TO 730 

E00 * 

BIO ‘ *K##HXHEELABELGEREYAIEERE 
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820 

830 PRINT "PREPARATION DES LABELS" 

840 FOR n=1 TO 100 

850 IF LEFT$S (if(n),5)="label" THEN L'(VAL (MID$ (ifini,7)))=n 
660 NEXT n 

870 60TO 200 

890 ” 

BQ0 ‘ HARAFAHESETESTENEENATS 

300 ” 

910 IF v{VAL (MID$ ic$,6,1)1)}=û THEN co=1 (VAL (MID$ (c$,23))) 
920 RETURN 

930 ‘ 

QA0 ‘ +YHHEHERELEDITEUREEHHEAREX 

950 ‘ 

360 GOSUR 2280 

370 p=l 

980 INPUT rep$:c$=LOMNERS(rep#f):IF c$="" THEN GOTO 980 
990 t=0O:ct=c$+" "iza=320:2b=200: ORIGIN za,2b:d=0 
1900 IF c$="sauve " THEN GOTO 2370 

1010 IF c$="charge “ THEN GOTO 2310 

1ÿ20 6OTO 1080 

1030 i$ip)=cf 

1940 IF cf="oublier " THEN RUN 

1050 PRINT CHR$(LHICHR#(1L)pr:" "si$(p}: PRINT SPC(70): PRINT 
1060 p=p+i:IF p=101 THEN p=100 

1070 G0TO 980 

1080 ‘ 

1090 ‘ HHHYHAHHIORDRESHHHHAENEE 

1100 ” 

1110 IF LEFT$ (c$,2)="1 "THEN GOSUB 1210 

1120 IF c$="i " THEN GOSUB 1350 

1130 IF c$="d " THEN GOSUB 1450 

1140 IF c$="e " THEN G0T0 800 

1150 IF c$="q " THEN END 

1160 IF c$="g “ THEN G0TO 2190 

1170 IF C$="h "THEN GOSUB 2960:G60T0 930 

1180 IF LEFT$ (c$,3)="var" THEN BOSUB 1530 

1196 IF t=f THEN GOTO 980 

1200 6070 1030 

1210 ‘ 

1220 ‘ HH#H4#HELEL ISTEEHANEEHES 

1239 ” 
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1240 CLS:IF LEN (c$iz2 THEN cé=c$+"{" 
1250 p=VAL (MID$ (c#,3)} 

1280 IF p)100 THEN GOTO 1520 

1270 FOR n=p TO p+19 

1280 IF n}100 THEN GOTO 1320 

1290 IF LEFTS (i$(n),3i="fin" THEN PRINT:PRINT" "sifinis"du orogranme,‘:E 

01) 1320 

1300 PRINT n11:1F n<10 THEN PRINT" "siflni ELSE PRINT if$i{n) 
1310 NEXT n 

1320 t=1 

1330 LOCATE 1,24 

1340 RETURN 

1350 ‘ 

1360 ‘ 64x44 [NGERTIONEEH##HX NH 

1370 ‘ 

1380 ti 

1390 FOR n=99 TO p STEP -1 

1400 i$tn+i)zifin) 

1410 NEXT n 

1420 i$(pi=">" 

1430 c$="1 M"4STRS (p):G60SUB 1240 

1440 RETURN 

1450 ” 

LAbQ ‘ HEHYEREHADELETEHEAEEEEXX 

1470 ‘ 

1480 FOR n=p T0 99 

1490 iftn)=if$in+l)}:NEXT n 

1500 i$(100)=" " 

1310 c$="1 "4STRS (p):GOSUB 1240 

1920 RETURN 

1330 ‘ 

1540 ‘ #44 FUARIABLESH4##4H444 

1950 ‘ 

1560 CLS 

1570 PRINT "vl'sMIDS#(cé,7,1)3")="sv(VAL (MIDS (c$,7,12})st=12RETURN 
1580 ‘ 

1590 ‘ HHHYEFEHSERREURSHYHHEEEX 

1600 ‘ | 
1610 CLS:PRINT "Instruction: “:C$:PRINT "Erreur en ligne “:cotFOR pazl TÜ 
2000:NEXT pa:c$="l "+5TR$ (co):B0TO 990 
1620 ‘ 

1630 ‘ FH YHEFONGLESEEEYHEEE 


1640 ‘ 

1650 IF d)360 THEN d=d-560 

1660 IF dt0 THEN d=d+360 

1670 RETURN 

1686 ‘ 

1690 ‘ +#HH4HESSICERCLERHYEHHYES 

1700 ” 

1710 IF MID$(c$,8,1)="v" THEN 1770 

1720 r=VALIMID#(c$.8)) 

1730 FOR 1=0 TO 360 

1740 PLOT reSIN(it,r+C0S(1) ,caul 

1750 NEÏT i 

1760 RETURN 

1770 r=v(VAL(MID#(c$,10,1))) 

1780 GOTO 1730 

1790 ‘ 

1800 ‘ #4#44#44#4COMMANDE##Y###44#4 

1810 ‘ 

1820 INK 1,0:PEN 1:LOCATE 1,29: INPUT'COMMANDE ---) ",rep$:c$=LOMERS(ren$) 
1830 IF c$="e" THEN GOSUB 2280:60T0 800 

1849 IF LEFT$(c$,1)="1"THEN cé=c$+" ":GOSUR 2280:60T0 1080 
[850 IF c$="o" THEN GOSUR 2280:END 

1860 LOCATE 1,25:PRINT SPC(78):G0T0 1790 

1870 ‘ 

1880 ‘ +#+#4#44##4)IRECTION/ORIGINEX##+#434%4 

1890 ‘ 

1900 IF MID#(C$,11,13="v" THEN 1929 

1919 d=VAL (MID# (c$,11))}: RETURN 

1920 dev(VAL(MID#(c$,13,1))): RETURN 

1930 ‘ 

1940 IF MID$#(c$,9,12="v" OR MIDS(c$.13,11="v" THEN 1980 
1950 za=VAL CMID$ (c$,9,3)) 

1986 2b=VAL (NID$ (c$,13,31} 

1970 ORIGIN 2a,2b: RETURN 

1980 IF MID$(c$,9,1)="v" THEN IF MID$(c$,14,13="v" THEN za=v(VAL (MID$ fc 
$,11,1))):2b=v(VAL (MID$ (c$,16,13}) ELSE za=v(VAL (MID$ (c$,11,1})):2b=4 
AL (MIDS (c$,i4,3)) 

1990 IF MID$(c$,13,1)="v" THEN zazVAL (MID$ (c$,9,%)):zb=v(VAL (MIDS (cé. 
15,11)) 

2000 ORIGIN za,zb:RETURN 

2010 ‘ 

2020 ‘ ##4###4+4B0ORD/ENCRE/PAPIER/STYLO#+4x4#4#4 
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2030 

2040 IF MID$(cé,6,1}z"v" THEN 2060 

2050 RORDER VAL (MID#(c$,8)): RETURN 

2066 BORDER viVALIMID#(c£,8,111):RETURN 

2070 ‘ 

2080 [IF MID$ic$,10,1)="v" THEN 6070 2100 

2090 INK VALOMID#(c4,7,23),VALEMID#(c4,10)):RETURN 

2100 INK VAL(MIDS(cf,7422) .v(VALIMID#(c$,12,11 13: RETURN 
2419 ‘ 

2520 IF MID$(c$,8,1)="4" THEN GOTO 2140 

2170 PAFER#aflan, VAL (MID${c£,8) 3: CLS:RETURN 

2140 FAPER8afl an viVALEMIDS (CS, 10,15: 2 CLS RETURN 

2190 

Si40 IF MID$icé,7,1}z"v" THEN GOTN 2180 

217 PEN#oflag VAL (MIB# (cf. 7hiscouieVAliNITDSicé, 7): RETURN 
1140 PEN#aflag,.viVAL MID (cé, S,liiiscoul=viVALIMIDE(CÉ, 8,11) 5: RETURN 


DOUO  HAHANHHEHEMODE DIRECT #44 


2220 GFLÉSSI 

2230 CLS:WINDON 1,80 ,23,2S:FAPER LIPEN GiELS 

2240 FRINT:INFUT "Commande --i ",rept:c$=LOHER#irapt) 
2259 IF ch="oftace" THEN PEN !:PAPER G:MODE 2:60T0 2199 
2360 IF c£="g" THEN GOSUB 2280:aflag=û: 6070 956 

2270 6072 240 


2290 ‘ +45+###4]NITIALISATION##44###+ 
2300 ‘ 

2310 MODE 2 

2320 za=320:2b=20):d=0 

2330 ORIGIN za,zb 

2340 INK 1.0:INK 0,13 

2350 PEN !:PAPER O: BORDER 13 

2360 RETURN 


2370 ‘ 

2300 ‘ +###4##846)LUEGARDEs+4#4444# 

2386 

2400 CLS:PRINT'SAUVEGARDE CU PROGRAMME" 
2410 PRINTM = memes | 


2420 LOCATE 1,10: [INPUT'Entrez le non de votre orogranme : ",nomf 
24X0 LOCATE 1,18:PAINT" Veuillez patienter," 
2445 PRINT'Sauvegarde en cours... ":PRINT:PRINT 
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2459 OPENOUT non$ 
2440 FOR bczi TD 100 
2470 PRINT#9,if(bc} 
2480 IF i$ibc}="#in"THEN bc=i0i 
2490 NEXT bc 
2500 CLOSEQUT:60T0 930 
2510 ‘ 
2520 ‘ H#4HHHECHARGEMENT#45 4444 
2536 ‘ 
CLS:PRINT'CHARGEMENT DL PROBRANRE" 
2550 PRINT "----menmmmmemoncmnse 
740 LOCATE 1,10:INPUT'Entrez le non de votre programme : ",nom$ 
2570 LOCATE 1,18:PRINT" Veuillez patienter," 
2880 PRINT'Chargement du programme “inon$i" en cours... ":PRINT:PRINT 
2390 OFENIN " 
2600 FOR bc=f TO 100 
2610 INPUT#9,j#(bc) 
2620 IF iflbci="fin" THEN bczlôl 
261û NEXT bc 
2645 CLOSEIN:GOTO 630 
28Sû 
2h60 ‘ 48444444 PREGENTATIONe##4#44#45 
2870 : 
2680 MODE O:INK 341,9:ENK f,.1:INK 0,0: BORDER Ô 
2690 ch$="ANSLOG" 
2700 ORIGIN 1B&,347:DRAUR 204,0,1 
2716 DRAHR 0,-34:DRAR -202,0:DRAMR 6,34 
2720 PEN 3 
2730 FOR is1 TO 6 
2740 cd#=MID$(chf,i,1) 
2730 LOCATE 6+i,3:PRINT cdf 
2760 SOUND 1,89+i#10 
2770 FOR pa=f TO 100:NEXT pa,i 
2186 PEN 1 
2790 LOCATE 2,15:PRINT"Langage Graphique" 
2800 LOCATE 1,17:PRINT'Etudiê pour le D.4.0" 
2810 INK 2,3:PEN 2:LOCATE 2,20:PRINT CHR$(164)+" St@phane CLOIREC" 
2820 LOCATE 2,24: INK 4,9:PEN 4:PRINT'Instructions (0/N)?" 
2830 rep$=INKEYS: r$=LONERS (reg$):IF r$="n" THEN RETURN: IF r$="o" THEN GOT 
0 2866 
2840 IF r$="o" THEN GOTO 2840 
2850 6OTO 2850 
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2860 MODE ! 

2870 INK L,112:FEN ! 

2980 LOCATE SLsPRINT "eæ4æ AMSLOG: Instructions ##444° 

2890 LOCATE 1,4:PRINT" Ce progranme ast une adaptation sim- -plifiée du 
lanoage LOGO," 

2500 PRINT:PRINT:PRINT"  J1 comporte deux aodes différents: ñ 
un node direct (l'ordinateur interprête innédiatement les ordres que vou 

s lui fournissezi" 

2910 PRINT:PRINT" - un node programme lil stocke alors les instru 

ctions sous forme d'un listing pour exécution ultérieure)" 

2920 PRINT:PRINT:PRINT" Un êditeur de texte vous pernet ausside modifie 

r vos programmes (suppriaer etinsérer des lignes, lister, exfcuter..,)" 

2930 LOCATE 1,24:PRINT "Tapez une touche":LOCATE 35,24: INK 2,11,0:PEN 2:P 

RINT "--)" 

2940 r$=INKEY#:IF r$C)"" THEN GOTO 2960 

2950 GOTO 2940 

2560 MODE Î:PEN 1 

2970 PRINT " Voici la liste des instructions!" 

2980 PRINT:PRINT:PRINT'H affiche les instructions utilisables": PAINT"L : 


liste les 22 preñieres lignes, L xsliste à partir de la liqne x." 
2590 PRINT'I :insere un espace entre deux lignes en décalant la are li 
qne du dernier listina vers le bas." 

3000 PRINT'D :supprine la Îere ligne du dernier listino et renonte 


toutes les autres d'une ligne. 

3010 PRINT'E :exécute un programme." 

3020 PRINT"O quitte le programme." 

3030 PRINT'SAUVE :5auvegarde le prooramae sur k7," 

3040 PRINT'CHARGE lit un programme sur k7." 

3050 PRINT'VAR Vlx) saffiche la valeur de la variable vix 
)" 

3960 PRINT'OUBLIER :oerd le progranne” 

3070 LOCATE 1,24:PRINT'Tapez une touche":LOCATE 35,24:PEN 2:PRINT"--)" 
3080 r$=INKEY#:IF r$(>""THEN 3100 

3090 60TO 3080 

3100 CLS:PEN 1 

3110 PRINT" Mode progranme," 


3120 PRINT:PRINT'V(xien donne a la variable v(x) Ja valeur n 
3130 PRINT'OIRECTION n sa direction en cours devient n 
3140 PRINT'ORIGINE nnn,nnn; l'origine du graohisne est pl 
acêe au coordon- -nêes nnn.nnn" 
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3190 PRINT'EFFACE :efface l'écran," 


3160 PRINT'ENCRE xx,nn ‘donne a l'encre xx la va- -leur nn. 
3170 PRINT'PAPIER xx :le papier prend La couleur de l'ancre xx, 
3180 PRINT'STYLO xx 1le stvlo prend la couleur de l'encre xx," 
3196 FRINT'EORD nn :le bord de l'écran prend la couleur nn." 


3200 LOCATE 1,24:PRINT'Tagez une touche":LOCATE 35,24:PEN 2:PRINT"--;" 
3210 rÉ=INKEYS#: IF rc) ""THEN 3230 

3220 SOTQ 3210 

3230 CES:PEN ! 


3240 PRINT'AFFICHE EN an,nn técrit en nn.nn ce qui est 
affiché à la ligne suivante du programme." 
3250 PRINT'LABEL n :oositionne un label (utilisé pour les saut 


5)" 
3240 PRINT'SON :fait un san bref et aigu" 
4270 FRINT'AVANCE x avance de x pixels dans la direction en 
cours," 
3280 PRINT'GAUCHE x stourne a gauche de x degrés." 
280 PRINT'DROITE x ttourne à droite de x degrés." 
3300 PRINT'FIN fin du progranme," 
3310 FRINT"VA AU LABEL x :saute au labei x," 
3320 PRINT"SI Vix)=0 VA AU LABEL x saut au Label x 
5i vix) égale 0" 


3330 PRINT'LISTE x :liste le progranne à partir de la ligne x.” 
3340 PRINT'CALCUL DE Visi=,,, svix} prend la valeur de 
ce qui suit le signe égal." 


3390 LOCATE 1,24: PRINT" Tapez une touche":LOCATE 35,24:PEN 2:PRINT'--5" 
3360 r$=INKEYS:IF r$<)""THEN 3380 

3370 GOT 3360 

3380 CLS:PEN ! 

3390 PRINT'RECTANGLE xxx,xxx trace un rectangie de cot 
5 xx ot xxx," 

3400 PRINT'CERCLE xxx strace un cercle de ravon xxx" 

3410 PRINT:PRINT:PRINT" Tous les tracês ont pour origine le dernier po 
jat ingcrit, De pius.il ect possible de paranêtrertou 
tes les instructions avec les varia- -bles v{x)," 

3420 PRINT:PRINT:PRINT" Vous aller maintenant oouvoir connen--cer a pre 
orammer en AMSLOG. Vous verrez qu'il est possible. avec de tres courts pro 
grammes de créer de superbes oraphis--mes," 

3436 LOCATE {,25:PRINT "Tapez une touche":LOCATE 35,25:PEN 2:PRINT "--)" 
3440 IF INKEY$<)"" THEN RETURN 

3450 GOTD 3440 
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LA SAUVEGARDE 
DES DONNÉES 


Michel ARCHAMBAULT 


U ne cassette vierge dans le magnéto-cassette ne sert pas unique- 
ment à sauver un programme que vous avez écrit, on peut aussi 
enregistrer des valeurs (nombres, chaînes) que l'on tient à conserver : 
c'est alors un enregistrement de fichier. 


C'est un peu moins simple que le SAVE ‘’ ‘’ pour un programme Basic, 
mais ce n'est pas compliqué à partir de l'instant où l’on a compris la 
raison d'être de certaines fonctions du genre OPENIN, CLOSEOUT, etc. 


LES DIRECTIONS IN ET OUT 


Le micro-ordinateur pense par rapport à lui-même ; le magnéto, ce n'est 
pas dans sa mémorre, il fait partie de l'extérieur (même si le construc- 
teur l’a mis sous le même capot en plastique). Le clavier, l'écran, une 
imprimante, un lecteur de disquettes sont aussi, pour lui, des éléments 
extérieurs (on les appelle aussi des ‘‘périphériques‘'). 

Quand il envoie sur cassette, c'est OUT ; quand il recoit des données 
de la cassette, c'est du IN. D'accord ? 

Ce n'est pas la peine de le spécifier pour le clavier (toujours du IN), ou 
pour l'écran et une imprimante {toujours du OUT), uniquement pour les 
périphériques bi-directionnels, à savoir magnéto-cassette, lecteur- 
enregistreur de disquettes (ou ‘’DRIVE"'} et MODEM. 

La nature de l’ordre Basic le prévient sur le sens : PRINT ou WRITE, 
c'est du OUT ; INPUT, c'est du IN. Encore faut-il lui dire le nom du péri- 
phérique expéditeur ou récepteur, c'est le ‘‘’canal'’, #0 à #9 (le signe 
# se prononce dièse). Quand on ne précise pas le canal, c'est le canal 
#0 ; ainsi PRINT #0 = vers l'écran, INPUT #0 = entrée venant du 
clavier, le canal zéro est donc le canal implicite. 

Le canal #8, c'est l'imprimante, on écrit donc simplement PRINT #8. 
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Le canal cassette, c'est # 9. Alors là, tout se complique, caril faut pré- 
venir l'ordinateur s'il lui faut OUVRIR sa mémoire pour une sortie ou 
pour une entrée : c'est OPENOUT ou OPENIN. A la fin du transfert de 
données, il faut le prévenir que c'est terminé, c'est CLOSEOUT ou 
CLOSEIN. 


UN EXEMPLE SIMPLE 


Un programme vous a fait entrer (INPUT) des noms, des nombres : il 
a calculé des résultats. Vous voulez conserver tout cela sur bande 
magnétique. Ce fichier s'appellera ‘’MACHIN'”’ (original, n'est-ce pas ?). 


400 OPENOUT ‘’MACHIN'’ 
410 PRINT #9, A$, B$, C$, NB, TOTAL, FZ$ 
430 CLOSEOUT 


Le nom du fichier n'est pas obligatoire, onn peut aussi commander 
OPENOUT ‘* 

À la suite de PRINT #9, on retrouve la même écriture que PRINT à 
l'écran ; les virgules sont des ‘‘séparateurs'’ de zones de données, 
comme à l'écran, comme dans une ligne de DATA, comme une suite 
de paramètres après une fonction Basic. 

Qu'y a-t-il sur la bande enregistrée ? Un signal de début fichier, le nom 
du fichier, trois chaînes, puis deux nombres, une chaîne, et enfin le 
signal de fin de fichier. || n'y a pas les noms des variables enregistrées, 
seulement leurs valeurs. Ce point est très important. 

Complétons un peu. Enregistrons le contenu d'un tableau DIM F(100,5). 
Insérons la ligne 420 : 


420 FOR 1=1 TO 100:FOR J=0 TO 5:PRINT #9, F{I J):NEXT:NEXT 


Une seule ligne pour sauvegarder un tableau de 600 nombres ! Pas 
mal... : 

Résumons la technique : après le OPENOUT ‘’ ‘’, on fait PRINT #9 sur 
chaque valeur à enregistrer. On ferme par CLOSEOUT. 


RETROUVONS NOS VALEURS 


Pour mettre en mémoire vive (en RAM) ces valeurs sur bande, il suffit 
d'écrire ces mêmes lignes en Basic, mais en remplaçant OUT par IN 
et PRINT #9 par INPUT #9. C'est tout ; mais attention à trois pièges 
hélas classiques : 

— demander un nombre alors que c'est une chaîne qui se présente ou 
vice-versa, Ainsi, nous avions, dans l’ordre, A$, B$, C$, NB, etc. Si 
nous programmons : 
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INPUT #9, A$, B$, C, NB 

il Y aura un plantage. Mais, on a droit à : 

INPUT #9, NOM$, VILLES, REP$, PRIX, etc. : 

— on demande d'entrer un nombre de variables plus grand ou plus petit 
que contient le fichier sur bande : plantage : 

— dans le cas de ‘variables indicées’’ (celles d'un tableau DIM), on 
a oublié d'annoncer ce DIM. Exemple : DIM F(100,5) en début du pro- 
gramme. Là aussi plantage. 


LE CAS DES FICHIERS ELASTIQUES 


C'est-à-dire des fichiers dont le nombre de valeurs peut varier d'un enre- 
gistrement à un autre. Le cas est fréquent, mais il y a deux facons de 
se tirer d'affaire : par la fonction EOF (= END OF FILE) qui signale qu'il 
a reçu le signal de fin de fichier, ou encore en prévenant en début de 
fichier du nombre de valeurs qui vont suivre. Voyons un exemple avec 
EOF. 


500 OPENIN ‘TRUC’ 
510 IF EOF THEN 550 
520 INPUT #9, AD, NB 
530 POKE AD, NB 

540 GOTO 510 

550 CLOSEIN 


Notez bien que la boucle de chargement 510-540 débute par le texte 
EOF, ce qui évite tout problème. 

Second exemple : à l'enregistrement, nous avions partiellement garni 
un tableau de noms prévu pour un maximum de 500, soit DIM 
NOM$(500). En fait, on n'en a entré aujourd'hui que 48. Le programme 
les a comptés, c'est la variable NB=48. Le fichier a été enregistré 
comme suit : 


800 OPENOUT ‘‘REUNION DU 28/6/86'' 
810 PRINT #9, NB 

820 FOR 1=1 TO NB 

830 PRINT #9, NOMS{I]:NEXT 

840 CLOSEOUT 


Dans le sous-programme de chargement : 


910 INPUT ‘TITRE’, NDF$ 
920 OPENIN NDF$ 

930 INPUT #9, NB 

940 FOR 1=1 TO NB 

950 INPUT #9, NOMS(I):NEXT 
960 CLOSEIN 
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Et le tour est joué. Facile, non ? 


CONCLUSION 


Ces quelques mots Basic que nous espérons avoir démystifiés sont 
d'une importance primordiale : ils permettent d'archiver des données 
entrées ou calculées par l'ordinateur, et ce mieux que sur papier, car 
elles peuvent redevenir actives après rechargement sans que l'on ait 
eu à les lire sur une feuille ou à les retaper au clavier. Un micro- 
ordinateur, c'est aussi autre chose qu'une super calculatrice 
programmable. 

Vous avez ainsi tous les éléments pour vous confectionner des fichiers 
sur bande à vos mesures. 

Lancez-vous. OPEN | 
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[2] 


TRACEUR DE CAMEMBERTS 


Michel ARCHAMBAULT 


L_<s résultats d'élections à la télévision nous ont familiarisés avec 
cette représentation circulaire des divers pourcentages obtenus. 
C'est beaucoup plus “parlant” que les diagrammes en barres 
verticales. 


Le programme que nous vous proposons est complet, à savoir : la sai- 
sie des données brutes, le calcul automatique en pourcentages, le clas- 
sement (facultatif), l'affichage de la représentation graphique en 
camembert avec la liste complète des éléments (pourcentages et total), 
édition sur imprimante de la liste des résultats et ‘Hard copy'’ de la 
page graphique. Ajoutez à cela les corrections d'erreurs à la saisie et 
une multitude de sécurités anti-étourderies. Un logiciel d'une rapidité 
étonnante pouvant être utilisé à des fins professionnelles, et qui ne fait 
que 3655 octets REM comprises, soit deux ‘‘'Blocks'’ sur cassette. 


LE MODE D'EMPLOI 


Il est parfois beaucoup plus clair de commencer par la fin. 

La première page d'écran est le titre qui vous demande d'entrer le nom 
de baptême de votre tableau. Tous les caractères tels virgule et guille- 
mets sont admis. Un pointillé vous indique le nombre de caractères 
maxi (40). 

Deuxième page d'écran : la saisie des données brutes. L'en-tête rap- 
pelle que vous avez droit à douze noms (ou éléments) de 15 caractè- 
res maxi chacun. La numérotation de 1 à 12 est automatique. Nous 
Sommes toujours en MODE 1. 

Entrez le premier nom, ENTER, quantité correspondante, ENTER, nom 
Suivant, etc. 

En bas de l'écran figurent deux options : E pour erreur, Q pour quitter 
la saisie (automatique après le douzième nom). Deux cas d'erreurs : 
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— le curseur étant sur ‘’quantité””, vous constatez une erreur sur le nom 
situé à gauche (vous avez déjà pressé ENTER). Tapez E,ENTER; vous 
pouvez réécrire le nom ; 

— le curseur est sur ‘’'NOM'" et vous constatez que la ligne supérieure 
est erronée, tapez E et vous revenez sur la ligne précédente. 

À la fin de la saisie, on vous demande si vous voulez un classement. 
Répondons N (non), par exemple. Aussitôt après. 

Troisième page d'écran, en MODE 2, le camembert se dessine à gau- 
che. Chaque secteur est repéré par des lettres À, B, C, D, etc. En haut 
apparaît votre titre. À droite la légende, Lettre À =tel nom =tel pour- 
centage, etc. Au-dessous ‘‘Sur un total de ..."" (somme des quantités). 
En bas à droite, le choix entre quatre options : 


1=1 IMPRIMER 

(Si vous avez une imprimante...}. || y a d’abord écriture de la liste détail- 
lée des résultats, saut de page paramétré et copie sur imprimante (ici 
EPSON ou assimilée) de la page d'écran graphique. Un bip sonore signale 
la fin de ce travail. Les autres options sont toujours disponibles. 

C = CLASSER 

La page d'écran est modifiée avec, cette fois-ci, le plus fort pourcen- 
tage obtenu en ‘A’, et ainsi de suite. On peut commander une 
deuxième impression. 


E = ENCORE 


C'est un RUN du programme pour un autre tableau. 


F=FIN 
Retour à l'état initial de l'AMSTRAD (couleurs), MODE 1 et END. 


LE PROGRAMME 


Si vous n'avez pas d'imprimante, vous pouvez vous dispenser de taper 
les lignes 4220, 5000 à 5110, et de 56000 à la fin. De même, suppri- 
mez Z (200) en ligne 50, 

Pour beaucoup d'entre vous, ce sera l'occasion d'utiliser certaines fonc- 
tions Basic peu courantes mais tellement pratiques, qui font la gloire 
de l'AMSTRAD. 


— UPPERS qui transforme tout en majuscules. 

— STRINGS$ qui évite de taper une longue série du même caractère ; 
de même SPC pour les blancs {dont le manuel ne parle pas...). 

— CHR$(18) qui efface la ligne à droite du curseur. 

— CHR$(7) qui émet un bip sonore. 

— ‘XPOS, YPOS qui permettent de faire un LOCATE à l'extrémité d’un 
DRAW ou d'un DRAWR. 

— LINE INPUT qui est à INPUT ce que WRITE est à PRINT (prend abso- 
lument TOUS les caractères). 


Nous avons ajouté une fonction Basic manquante : CIRCLE. C'est notre 
mini-module 54000 à 54040 qui trace un cercle parfait (pas en pointil- 
ls.) en une seconde ! On lui donne les coordonnées X, YŸ de son cen- 
tre, son rayon R et sa couleur COL (PEN 1 par défaut). Son principe 
est de tracer 36 ‘cordes. 

C'est arbitrairement que nous avons limité le nombre de noms à 12. 
Il ne faut pas confondre camembert et roue de bicyclette ! 

Nous avons souvent usé d'un côté sympa de l’AMSTRAD qui, lorsqu'il 
attend des valeurs entières (exemple dans un LOCATE) et qu'on lui livre 
des valeurs calculées décimales, transforme ces dernières en entiers 
et arrondis au plus proche |! 


TABLEAUX DE CALCULS 


DIM CA(12,3) : En 1 ce sont les quantités NB saisies (totalisées par 
TNB). En 2, le rapport NB/TNB (multiplié par 100 = %). En 3=la posi- 
tion angulaire, donc tenant compte des angles des secteurs antérieurs. 
ls sont recalculés si on a demandé un classement (tri) en deuxième 
passe. 


TRACE 


Après tracé des rayons séparant les secteurs (ligne 4040), on trace ‘’à 
blanc’” les bissectrices de ces secteurs, mais avec un rayon plus court 
(lignes 4050 à 4080). Il s'agit alors de transformer ces coordonnées 
graphiques (XPOS et YPOS) en coordonnées texte (LOCATE) afin d'ins- 
crire l'initiale du secteur (A, B, C...). Le calcul de la ligne 4090 fait une 
division par 16 pour l'axe Y (400/25 = 16) et par 8 pour l'axe des X 
(640/80 = 8), car nous sommes ici en MODE 2. 

La rapidité d'exécution est assez surprenante. 


IMPRESSION 


Le module 5000-5110 peut être appliqué à toute imprimante, à l'ex- 
Ception du CHR$(27)""  ‘’ (ligne 5010) qui est un code EPSON qui vide 
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le buffer de l'imprimante {= ‘‘initialisation d'imprimante’). Une précau- 
tion systématique. Le saut de page de la ligne 5090 s'applique au papier 
11 pouces de 66 lignes par page (le plus courant). 

Le module de Hard-Copy (56000-56240) ne concerne que les impri- 
mantes EPSON RX ou FX (et les EPSON vendues sous une quinzaine 
d'autres marques. ). Le principe consiste à explorer la mémoire d'écran 
en 80 bandes verticales, mise en DIM Z de ces octets, et envoi de ceux- 
ci en ‘‘BIT IMAGE!’ {code CHR$(27) ‘’K'' de la ligne 56120). On obtient 
alors un tracé 18 x 24 cm qui déforme légèrement le cercle. 


NOTE : Si vous utilisez ce module utilitaire pour d'autres programmes, 
n'oubliez pas le DIM Z (200) mis ici en ligne 50. 

10 ‘ CAMEMBERT / AMSTRAD 

29 ‘ Michel ARCHAMBAULT 1985 

SG CIN NM$(12),CA(12,3,2(200) 

66 ‘DIM CA: 1=QUANTITE NB:2=NB/TOTAL: S=POSITION ANGULATRE 

70 INK OH: INK 1,24:INK 2,205 INK 3,6:BDRDER 15: DRIGIN 0,0 

1000 ‘TITRE 

1010 MODE L:PAPER 2:PEN S:CLS:LOCATE 20,S9:PRINT "CAMEMBERT" 

1020 R=120:X=160:Y=260:C0L=-1: GOSUB 54000 

1030 LOCATE 3,20:PEN O:PRINT "Nom du Tableaut ":STRINGS(22,","):STRINGS (1 
B,","):PEN 3:LOCATE 19,20:LINE INPUT TIT$ 

1040 TIT$=LEFTS(TI78,40) 

1100 ‘SAISIE 

1110 CLS:LOCATE 3,2:PRINT "12 NOMS maxi de 15 CARACTERES maxi, 

1120 LOCATE 4,24:PRINT "Erreur = E : pour Quitter NOM = 0" 

1130 LOCATE 10,4:PRINT "NOM: ":LOCATE 25,4:PRINT "QUANTITE:":PEN 0 

1140 N=N+I:LOCATE 5,5+N:PRINT USING "##":N:LOCATE 7,S#NiPRINT " : "iSTRIN 
6$(15,"."):LOCATE 10,5+N:LINE INPUT “",NM$ 

1150 IF UPPER$INN#}="Q" THEN N=N-1:607T0 2000 

1195 IF NH$="E" THEN N=N-2:6070 1140 

1160 NMSIN)=LEFTS(NM$, 15) 

170 LOCATE 27,54+N: INPUT ""NB#:NB=VAL(NB$3: IF UPPERS(NB$)2"E" THEN N=N-1 
:60T0 1140 

1175 [IF (NB=0 AND NB$<)"O"] OR NB<O THEN PRINT CHR$(7}:G0T9 1170 

1180 CACN,1)=NE: TNB=TNB+NB:IF N=12 THEN 2000 

1190 GOTO 1140 

2006 ‘FIN DE SAISIE 

2610 PEN 3:IF N=1 THEN PRINT CHR$(7):LOCATE 3,22:PRINT "Pas de Canembert 
pour UNE variable, .":FOR I=i TO S000:NEXT:RUN 

2020 LOCATE 6,22:PRINT "Voulez-vous classer ? ( O/N )" 

2023 A$=UPPERS(INKEY#):1IF G$="N" THEN 3000 

2030 IF O$C)"0" THEN 2025 
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2040 LOCATE 6,22:PRINT CHR#(18;:SPC(I1); "Patience," 
2106 ‘TRI 

2110 FOR J=1 TO N:E=CA(J, 1) 

2120 FOR I=J TON 

2130 IF CA(I,1)22E THEN E=CA(I,():K=I:ES=NMS (I) 

2140 NEXT 

2190 CA(K,1I=CA(J,1):CA(,1)E 

2160 NM$(KIENM£ (JT): NM$(J)=ES 

2170 NEXT 

3000 "CALCULS DIM CA 

3010 FOR 1=1 TO N:CA(I,2)=CA(T,1)/TNB:CA (I, 3)=S60#CA(T,2)#CAlI-1,33:NEXT 
4500 ‘ TRACE 

4010 MODE Z:INK 0,13: INK 1,0: BORDER 9 

4020 X2:180:Y=200:R=170:C0L=0:GOSUE 54000 

4030 FOR I=1 T0 N:PLOT X,V,1 

4540 DRAHR COS(CA(I,3))#R,SINICACI 3H D#R:NEST 

4050 FOR I=N TO { STEP-1 

4060 AB=(CA(T,3)+CA(I-1,3})/2: ‘ANGLE BISSECTRICE 

4070 PLOT X,Y 

4680 DRAWR COS (AR) *120,SIN{AB)+4120,0 

4090 LOCATE KPOS/8,(400-VPOS)/16: PRINT CHR$(b4+I)2NEXT:PLOT XV, 1 
4100 LOCATE 40+{40-LEN(TIT#5)/2,2:PRINT TITS 

4119 FOR I=i TON 

4120 LOCATE 47,4+I:PRINT CHR$(64+1)1" : 'eNM#UT) 


4130 LOCATE 67,4+I:PRINT "= "::PRINT USING "AH, ##':CA(I 214100: : PRINT " % 


4140 NEXT 

4150 LOCATE 50,19:PRINT "SUR UN TOTAL DE":TNE 

4206 LOCATE 38,23:PRINT "Encore, Fin, Inprimer Classer ? ( EF, IC )" 
421Q C$=UPPERS(INKEY#):1F Q$="E" THEN RUN 

4220 IF G$="I" THEN GOSUB 5000: FPRINT#8,CHR# (27) "@": PRINT CHR$(7):GO0T0 42û 
là 

4225 ÎF Q$<"C" THEN 2100 

4230 IF G$(>"F" THEN 4210 

4240 MODE 1:INK O0,1:INK 1,24: BORDER 1:PAPER O:PEN 1:CLS 

4250 LOCATE 11,12:PRINT "VOUS POUVEZ ETEINDRE, “: PRINT: PRINT 

4260 END 

9000 "IMPRESSION (EPSON) 

3010 PRINTHB,CHRS (273 "@": SPC (40-LEN(TIT#:)/2): TITS:PRINTHE 

3020 FOR 1=1 TON 

9030 PRINTRB USING "##"s Is: PRINTHE "à üe 

3040 PRINTHB,NMS (I): SPCCIS-LEN(NM#(1))}5" = 
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5050 PRINTHBQUSING"##,##":CA(I,2)#100: 

SG80 PRINT#B," % ("sCAUT, 1}; "1" 

5070 NEXT 

5080 PRINT#B:PRINT#B,GPC(12): "Sur un TOTAL de": TNB 
5090 FOR 1=1 TO (82-N):PRINTHB: NET 

5100 GOSUB 56000 

3110 RETURN 

34000 ‘ TRACE DE CERCLE 

34010 DEG:PLOT X+R,V,1+C0L 

54020 FOR A%=0 TO 360 STEP 10 

34030 DRAN RECOS (AZ) +K,RESIN(AX) +Y:NEXT 

54040 RETURN 

5600€ "HARD COPY MODE 2 sur EPSON 

56010 PRINT #8 

56030 PRINT #8,CHR$ (27): CHR$ (64); CHR$ 127) ; A" {CHRS (B) ; 
50040 PRINT #B,CHR$ (13) 

6050 PRINT #8,CHR$ (15): 

56060 FOR COL=49152 TO 49231:1=0 

56070 FOR LI=COL T0 COL+1920 STEP 80 

S6080 FOR T=LI TR LI+14338 STEF 2048 

86090 I21+1:2(T)=PEEK (TI: IF 12200 THEN GOSUB 56120 
56100 NEXT:NEXT: PRINT #B,CHR# (LS) :NEXT 

36110 RETURN 

56120 PRINT HB,CHRS (27: 3 "K"4CHRS (100) :CHR# (0): 
56130 FOR J=200 TO 151 STEP -1:P=7(J) 

56140 PRINT HO,CHR$(P):CHR$ (0) 3 : NET 

S6190 PRINT #B,CHR$ (27): "KE": CHR# (100) : CHRS EG) 
56160 FOR J=150 TD 101 STEP -1:P=2(J) 

56170 PRINT #B,.CHRS PI: CHRS (0): NEXT 

50180 PRINT RBQCHRS (27): "K"{CHRS (100) :CHR# (0): 
56190 FOR J=100 TO 51 STEP -1:P=2(J) 

54200 PRINT #B,CHRS(P):CHRS IQ): : NEUT 

26210 PRINT #B,.CHR$ (27) : °K";CHR$ (100) :CHR$ (0): 
956220 FOR J=30 TO 1 STEP -1:P=Z{1) 

56230 FRINT #8,CHR$ (P) : CHRS (0) 3 : NEXT 

624) RETURN 

65333 ‘ FIN DE LISTING 


VIE PRATIQUE 


Eric GROUSSARD 


Ce programme compte trois parties : 


BIORYTHME 


Entrez votre date de naissance et la date du jour ; vous obtiendrez votre 
position sur les cycles intellectuel (33 jours), émotionnel (28 jours) et 
physique (23 jours) : haut, bas ou critique. Les droites verticales en 
pointillés indiquent la portion des 5, 10, 15, 20, 25e et derniers jours 
du mois, et la droite, en trait plein, le jour demandé. 


ZODIAQUE 


Entrez votre date de naissance, et vous saurez votre signe du zodia- 
que chinois (1 signe par année) et votre signe du zodiaque français avec 
les décans (attention : les limites des différents signes peuvent varier 
selon les sources). 


CALENDRIER PERPETUEL 


Entrez votre date : vous obtiendrez le jour de la semaine, le rang du 
jour dans l'année, le nombre de jours restants et le calendrier du mois. 
Valable pour les années O à 5000 (donc entrez 1985 et non 85) et 
tenant compte du passage du calendrier julien au calendrier grégorien. 
À la question ‘’suite ?'', répondre: par O, 1 ou 2 selon les explications 
du sommaire. 


1 REM VIE PRATIQUE 
2 REH COPYRIGHT ERIC GROUSSARD 
10 MODE 1:BORDER 1:INK O,L2INK Î,24:INK 2,20: INK 3,6 
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20 PRINT FIN :6" 
6 PRINT 


46 PRINT " BIORYTHMES 11° 

SD PRINT 

66 PRINT "SUITE :0 SOMMAIRE" 

7G PRINT ‘ 1 AUTRE PERSONNE" 

86 PRINT 2 AUTRE DATE" 

96 PRINT 

109 PRINT SIGNES DU ZODIAQUE :2" 
116 PRINT 

120 PRINT "OUITE :0 SOMMAIRE" 

130 PRINT " 1 AUTRE PERSONNE" 

140 PRINT 

50 PRINT * CALENDRIER PERPETUEL :3" 
160 PRINT 

170 PRINT SUITE 19 SOMMAIRE" 

169 PRINT * { AUTRE DATE" 

190 FRINT 

200 INPUT S 

2109 CLS 


220 IF 5z) THEN END 

230 ON S GOTO 270,1280,1940 

240 REM------------.ssmanens 
290 REN RIORYTHMES 

260 REM---------- mms 
270 PRINT “DATE DE NAISSANCE :" 

280 INPUT “J=":31 

290 INPUT "M=": MI 

360 INPUT "A="iAI 

Ji0 IF 5=2 THEN 1290 

320 PRINT "DATE ACTUELLE :" 

350 INPUT "J=":12 

340 INPUT “"M=":M2 

350 INPUT "A="1 42 

60 CLS 

370 PRINT ‘DATE DE NAISSANCE :":J1: 
380 LOCATE 23,1:PRINT ‘/":Mi; 

390 LOCATE 27,1:PRINT "/":AÎ 

400 PRINT "DATE ACTUELLE s'id2: 
410 LOCATE 23,2:PRINT "/":M2: 

420 LOCATE 27,2: PRINT "/":A2 
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430 V=J2 

440 ON MI GOSUB 2360,2370,2380.2390,2400,2410,2420,2430,2440,2450,2460, 24 
7( 

450 Ji=Ji+h 

460 ON M2 GOSUB 2360,2370,2380,2390,2400,2410,2420,2410,2440,2450,2440,24 
70 

470 d2=J2+k 

480 IF A2<100 THEN AS=1900+A2 ELSE A3=A2 

490 A=INTISES, 25 (A2-A1))+22-714+1 

300 IF A2/4=[NT(A2/43 THEN 510 ELSE 340 

510 IF J259 THEN 520 ELSE 540 

J20 IF M2)2 THEN A=A#I 

530 IF A1<2000 AND 421999 THEN A=A-1 

40 PRINT "AGE=":A3 "JOURS" 

530 X=A MOD 33:Y=4 MOD 28:2=4 MOD 23 

560 PRINT "RIORYTHME INTELLECTUEL=": #4 

ÿ70 LOCATE 28,4 

980 IF #21 THEN 390 ELSE 620 

390 IF XCS6 THEN PRINT ":HAUT":G0TO 630 

BGQ IF 217 THEN 610 ELSE b20 

b1Q IF X<32 THEN PRINT “:BAS":60T0 630 

820 PRINT "CRITIQUE" 

b30 PEN S:PRINT "BIDRYTHME EMOTIONNEL =":Y: 
640 LOCATE 28,5 

690 IF Y>1 THEN 660 ELSE 490 

660 IF Y<I1S THEN PRINT ":HAUT'":GOTD 700 

670 IF Y)15 THEN 680 ELSE 690 

660 IF Y<27 THEN PRINT “:BAS'":G0T0 700 

690 PRINT ": CRITIQUE" 

700 PEN 2:PRINT "BIORYTHME PHYSIQUE  =";1: 
710 LOCATE 28,6 

720 IF 21 THEN 730 ELSE 780 

730 IF 2611 THEN PRINT ":HAUT':60T0 770 

7140 IF 2}12 THEN 750 ELSE 760 

7930 IF 2€22 THEN PRINT ":BAS":G0T0 770 

760 PRINT "{CRITIQUE" 

110 D=(X-V+34)MOD 33:E=(Y-V+29)MOD 28: F=(2-V+24)MOD 23 
780 IF M2=2 THEN 790 ELSE 810 

790 IF A2/4=INT(A2/4) THEN P=29:6010 830 
800 P=28:607T0 830 

810 IF M2=4 OR M2=6 OR N2:9 OR M2=11 THEN P=30:607T0 830 
820 P=51 
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830 C=! 
840 IF DCB THEN I=162D+134 

850 IF D=8 THEN PLOT 16#C-31,248,1:DRAU 16#C-15,264,1:DRAN 16C-7,284,1:D 

RAW 162C+1,256,1:B070 900 

860 IF DE AND D€25 THEN 1=400-164D 

870 IF D=25 THEN PLOT 16#C-31,16,1:DRAW 16#C-23,B,1:DRAU 16#C-15,B,1:E0T0 
900 

880 IF D925 THEN 1=18#D-392 

890 IF C=1 THEN PLOT 1,141 ELSE DRAW 16#C-15,1,1 

900 C=C+1:0=D+1 

910 IF D=34 THEN D={ 

920 IF CP THEN 930 ELSE 840 

930 C=1 

94) IF ECB THEN I=18#E+136 

950 IF E>7 AND EC21 THEN I=360-184E 

980 IF E>20 THEN 1=16*E-312 

970 IF C=1 THEN PLOT 1,1,3 ELSE DRAN 16#C-15,1,3 

980 C2C+1:E2E+1 

990 IF E=29 THEN E=i 

1000 IF C)P THEN 1010 ELSE 940 

1010 Cz1 

1020 IF F<h THEN I=16#F+134 

1030 IF F35 AND F&18 THEN 1=320-164F 

1940 IF F>17 THEN I=164F-232 

1050 IF C=1 THEN PLOT 1,1,2 ELSE DRAW 16»C-15,1,2 
1060 IF F=5 THEN DRAW 16#C-3, 228,2 

1070 IF F=17 THEN DRAN 16#C-11,44,2:DRAW 163C+1,56,2 
1080 C=C+1:F=F#1 

1090 IF F=24 THEN F=1 

1100 IF CP THEN 1110 ELSE 1020 

1110 FOR I=1 TO 640 

1120 PLOT 1,152,1:PLOT 1,120,1 

1130 NEXT | 

1140 FOR !=1 TO 272 

1150 IF (I MOD 32)16 THEN PLOT 65,1,1:PLOT 145,1,1:PLOT 225,1,1:PLOT 305 
LlPLOT 385,1,1:PLOT 16#P-15,1,1 

1160 PLOT 16#V-15,1,1 

1170 NEXT I 

1180 PEN {INK 1,24 

1190 LOCATE 33,13:PRINT "HAUT" 

1200 LOCATE 33,17:PRINT "CRITIQUE" 

1210 LOCATE 33,21:PRINT "BAS" 
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1220 LOCATE Î,7:PRINT :PRINT K$:AJ 
1230 LOCATE 25,8:INPUT "SUITE 0,1,2":5 
1240 CLS 

1250 ON 5+1 G60TO 10,270,320 


1290 REM 
1310 INPUT "DATE DE NAISSANCE :J=",J:LOCATE 25,4: INPUT "Me" .M:LOCATE 30,1 
LINPUT "Az" A 

1320 IF 41900 THEN A=A-1900 

1330 IF M=1 THEN K=J 

1340 IF M=2 THEN K21#31 

1350 IF M)2 THEN K=80 

1340 FOR B=0 TO 85 

1370 READ L 

1380 1F B=A THEN 1400 

1390 NEXT B 

1400 H=A MOD 12 

1410 IF Ko=L THEN H=H+! 

1420 IF H=0 THEN C$="DU SANGLIER" 

1430 IF H=1 THEN C#="DU RAT' 

1440 IF H=2 THEN C$="DU BUFFLE" 

1450 1F H=3 THEN C$="DU TIGRE" 

1460 IF H=4 THEN C$="DU CHAT" 

1470 IF H=5 THEN C$="DU DRAGON" 

1480 IF H=$ THEN C$="DU SERPENT" 

1490 IF H=7 THEN C$="DU CHEVAL" 

1500 IF H=8 THEN C$="DE LA CHEVRE" 

1510 IF H=9 THEN C$="DU SINGE" 

1520 IF H=10 THEN C#="DU COO" 

1930 IF H=11 THEN C#="DU CHIEN" 

1540 LOCATE 11,5:PRINT "ZODIAQUE CHINOIS" 
1550 LOCATE 5,8:PRINT "VOUS ETES DU SIGNE ":Cs 
1560 DATA 31,50,39,29,47,33,29,44,33,22,41,30 
1570 DATA 49,37,24,45,34,23,42,32,51,39, 28,47 
1580 DATA 36,24,44,33,23,41,30,48,37,28,45,35 
1590 DATA 24,42,31,50,39,27,46,36,25,44,33, 22 
1600 DATA 41,29,48,37,27,45,34,24,43,31,49,39 
1610 DATA 28,46,96,25,44,93,21,40,30,48,37,27 
1620 DATA 46,34,23,42,31,49,38,28,47,36,25,44 
1630 DATA 33,51 


1440 REM---— nee 
1650 REM ZODIAGUE FRANCAIS 


1670 ON M GOTO 1680,1490,1700,1710,1720,1730,1740,1750,1760,1770,1780,179 
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1680 D1=1:D2=11:D3=21:60T0 1800 
t49û D1=t:D2=11:03=20:6070 1800 
1700 D1={:D2=11:D3=21: 6070 1800 
1710 D1=1:D2={1:D3=21:60T0 1800 
1720 D1=2:D2=12:D3=22:6070 1800 
1750 D1=1:D2=13:D3=22: 6070 1800 
1740 Bi=2:02=13:D3=23: 6070 1800 
1750 D1=3:02=14:03:24:60T0 1806 
i760 D1=2:02=13:D3=24:60T0 1800 
1770 Di=4:D2=14:D3224:60T0 1800 
{780 D1=2:022:13:D3223:60T0 1800 
1790 D1=2:D2=13:D3=22 

1600 IF J<D1 THEN N=i:6070 1840 
1816 IF J<D2 THEN N=2:6070 1846 
1820 IF JXD3 THEN N=3:6070 1840 


EC N=11i 

1840 N=N+IO#MILEINTIN/ FO): PEN-10#LiLst+9:IF L)12 THEN Lel-12 

1850 R$=MID#("BELIER  TAUREAU GEMEAUX CANCER LION VIERGE 
BALANCE SCORPION SAGITTAIRECAPRICORNEVERSEAU POISSONS ",10#L-9,10) 
1860 IF P=1 THEN T$2"ER " ELSE T$="EME " 

1870 LOCATE 10,14:PRINT "ZODIAQUE FRANCAIS" 

1880 LOCATE 5,17:PRINT “VOUS ETES "iR$;" DU": FiT#: "DECAN" 

1656 LOCATE 1,25: INPUT "SUITEZ0,1"35 

1900 CLS:RESTORE: ON S+1 GOTO 10,1310 


1920 REM CALENDRIER FERFETUEL 

1730 RENTE nenense 

1940 DIM P(12) 

1930 INPUT "DATE : =", INPUT © M=® Ms INPUT =" A 
1966 V=J:J1=0:P(1)=31:P(3)231:P(4)=30:P(S)=31:Pib)= 30: P (71231: P(B)= SEP (9 
H=30!P(10/=S1IP (LS SO: P (12 =] 

1970 IF A/42INT(A/4) THEN P(2):29 ELSE F(2):28 

1980 IF A/400=INT(A/400) AND A>1600 THEN P(2)=2B 

1990 FOR N=f TO 12 

2000 IF N=M THEN N=P(N):G0T0 2050 

2010 J=J+P(N) 

2020 NEXT N 
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2030 IF V3N THEN 2080 

2040 IF A(1582 THEN 2090 

2030.1F 421582 THEN 2100 

2060 IF Jé=277 THEN 2090 

2070 IF J)=2B8 THEN 2100 

2980 LOCATE 9,12:PRINT “CE JOUR N'EXISTE PAS, *:60T0 2340 
2090 E=4:60T0 2110 

2106 Es] 

2110 FOR 1=17 F9 50 

2120 IF I/4=INT(T/4) THEN 2140 

2130 IF 421#100 THEN E=E-1 ELSE 2150 

2140 NEXT I 

2150 IF P(2)=29 THEN E=E-1 

2160 H=INT{1,25+A)1+/+E:B=8 MOD 7 

2179 ON NM COSUB 2360,2370,2380.2390,2400,2410,2420,2450,2440,2450,2460,24 
70 

2189 W=G:IF Vs1 THEN T$='ER " ELSE T$="" 

2190 IF J=1 THEN S$2"ER ‘ ELSE S$=°EME ” 

2200 CH=MIDS("DIMANCHELUNDT MARDI MERCREDIJEUDI VENDREDISAMEDT "8 
+B+1,8) 

2210 CLS:LOCATE S2:PRINT "LEMSVITEIKS SAS "EST UN ":C# 
2220 LOCATE 5,4: PRINT "C'EST LE':J:5$:"JQUR DE L'ANNEE" 
2230 LOCATE S,6:PRINT “IL RESTE" :337+P(21-J 1 "JOURS" 

2240 LOCATE 13,9:PRINT K#i" ‘A 

2230 LACATE 10,{12PRINT 'L M M J OV S D" 

2260 IF Az1562 AND M210 THEN LOCATE 10,1S:PRINT "4 2 3 4 15 {6 17":L0 
CATE 10.HS:PRINT "IB 19 20 21 22 23 24":LOCATE 10,17:PRINT "29 26 27 28 2 
9 56 31":6070 2340 

2270 F=B-(V MOD 7)+8:F=F MOD 7:Y=13:IF F:0 THEN F=7 

2280 FOR Is TO N 

2290 LOCATE 3#F+6,Y:IF [=V THEN PEN 3 ELSE PEN ! 

2300 PRINT ] 

2310 F=F+j11F F=8 THEN F=1:Y=V+2 

2320 NEXT ! 

2330 PEN 1 

2340 LOCATE 1,29: INPUT "SUITE 0,1"16 

2530 CLS:ON S+1 GDTO 10,1930 

2360 H=0:K#= "JANVIER": RETURN 

2370 W=S1:K$="FEVRIER": RETURN 

2380 H=59:K$="MARS" : RETURN 

2390 W=90:K$="AVRIL 2: RETURN 

2400 W=120:K$="MAL": RETURN 
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2410 H=151:K$="JUIN": RETURN 

2420 W=181:K$=" JUILLET": RETURN 
2430 H=212:K$="AQUT": RETURN 

2440 W=243:K$="SEPTEMBRE": RETURN 
2450 Wz273:K$="OCTOBRE": RETURN 
2460 W=304:K$=" NOVEMBRE" RETURN 
2470 W=3S4:K$= "DECEMBRE": RETURN 
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LASER'S BYKE 


Stéphane CLOIREC 


e programme est inspiré du film ‘"TRON”" de Wait Disney. Il est 

basé sur le célèbre duel à moto entre le héros et le M.C.P. 
(comprenez : Master Control Program, le software qui dirige l'ordina- 
teur des jeux). 


Entièrement en Basic, il permet de jouer à deux ou tout seul et comprend 
quatre arènes différentes. On peut utiliser indifféremment le clavier ou 
les joysticks (pour plus d'explication, tapez le programme et lisez atten- 
tivement les instructions). 

Il vous faudra tout d'abord rentrer le Loader, le premier petit programme, 
le sauver sur cassette ; puis tapez le listing principal {les deux program- 
mes peuvent être sauvés sous n'importe quel nom). 


STRUCTURE DU JEU 


120 : 

Test jeu à 1 joueur/Jeu à 2 joueurs. 
160-290 : 

Routine principale à deux joueurs (test de clavier, de collision, fuel...). 
330-500 : 

Fin de jeu. 

540-630 : 

Nouvelle partie. 

670-790 : 

Routine principale à un joueur (cf. 160-290). 
830-880 : ‘ 

Fin de jeu. 

920-1000 : 

Nouvelle partie. 

1040-1080 : 
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Place la ‘’Warp-Box'' à l'écran. 
1120-1160 : 

Présentation, instructions. 
1680-1880 : 

Sous-programmes utilisés par instructions. 
1920-2030 : 

Menu principal, choix du type de jeu. 
2070-2140 : 

Les différentes arènes du duel. 
2180-2280 : 

Initialisation (ink, coordonnées, enveloppes, }). 
2320-2430 : 

Arène libre. 

2470-2540 : 

Arène labyrinthe. 

2580-2620 : 

Arène aléatoire. 

2660-2680 : 

Arène de la mort. 

2720-2940 : 

Routines sonores. 


Programme de présentation 


49 MODE O:INK 0,0:BDRDER O:PEN 1:PAPER 0 

30 INK !,2:LOCATE 2,9:PRINT"### LASER-BYKE #44" 

69 ORIGIN 20,345:DRAHR 600,0,1:DRAWR 0,-37,1:DRAUR -600,0,1:DRAWR 0,.37,1 
70 INK 2,6:PEN 2:LOCATE 7,11:PRINT CHR$(164):° 1985" 

80 INK 3,1B:PEN S:LOCATE 2,14:PRINT'"Steohane CLOIREC" 

90 ORIGIN 34,169:DRAWR 504,0,3 

100 INK 4,8:PEN 4:LOCATE 1,21:PRINT"Chargesent en cours," 

110 SPEED INK 255,255 ; 

120 FOR i=1 TO 500:CALL &BD2S:CALL &BD22:NEÏT 

130 SPEED INK 15,13:0RIGIN 0,0 

140 RESTORE 170 

150 READ note,dur:IF nate=-1 THEN 160 ELSE SOUND 4,note,dur ,15:6970 150 
160 RUN'bykel" 

170 DATA 478,50,319,50,358,13,379,13,4246,13,239,60,319,860,358,13,379,13,4 
26,13,239,60,319,60,358,13,279,13,258,13,428,70,-1,0 


Programme principal 

€) ‘ 

90 GOSUB 2150: ‘ initialisations 
100 GOSUB 1100:  ‘ instructions 


110 GOSUB 1890: ‘ menu crincipal 

120 ON op 60T0 160,670 

150 ‘ 

140 ‘ routine principale pour jeu à deux joueurs 

150 ‘ 

160 PLOT xb,vb,1:PLOT xrvr,2 

170 SOUND 1,100,1,7,1,1 

180 IF INKEY(bdi=0 THEN xbi=l:vbi=0 ELSE IF INKEY(ba!=0 THEN xbi=-l:vb1=0 
190 IF INKEY(bh}z0 THEN xbi=0:vbl={ ELSE IF INKEY(bb})=0 THEN xbi=0:vbi=-1 

200 IF INKEY(rd)i=0 THEN xrisiivriz0 ELSE IF INKEY(rg)=0 THEN xrlz-iivr{sû 

210 IF INKEY(rh})=0 THEN xriz0:vrisi ELSE IF INKEV(rb)=0 THEN xri=Grvri=-1l 

220 xb=xb+##xb{:vb=vb+vbix2 

230 vr=xrtäæyr ii vr=vr+yr 142 

240 fuel=fuel-!:IF fuel=0 THEN GOSUB 2830: G60SUB 2780:60T0 300 

250 PLOT 9528,366,7:PRINT USINE"###": fuel: 

260 bcrash=TEST(Ixb,ybh:rerash=TEST(xr ,vr) 

270 IF bcrash=4 OR rcrash=4 THEN 290 ELSE IF berash()0 AND rerash()C THEN 
GOSUB 2910:G0SUB 2830:G0SUB 2780:G607T0 300 

286 IF berash@}0 OR rerash<>0 THEN GOSUB 2910:G60SUB 2830:G60SUB 2780:60T0 
4iû 

250 GOTO 140 

300 ‘ 

319 ‘ Mort des deux joueurs qu panne d'essence 

320 : 


340 PEN 3:LOCATE Î,7:PRINT" Champions, vous vous etes bien battus," 

390 PRINT:PRINT" Mais votre duel s'est termine d'une maniere ascez dec 
evante, Le M,C.P, va vous dire ce qu'il en pense. ,":PEN Î 

360 IF fuel=0 THEN PRINT:PRINT" Vous n'avez oas eu assez de fuel pour me 
ner à terne ce conbat qui devait etre mortel, Vous ne meritez donc pas qu 
‘on vous laisse la vie sauve !l!1":G60T0 380 

370 PRINT:PRINT" Vous avez ete assez stupides pour vous exterminer autuel 
lement. Votre place n° ect pas dans cette arene, mais aux minesde siliciu 
a de Saracon-city !!!" 

300 PEN S:LOCATE 1,18:PRINT" Néanmoins, dans sa grande magnanimite, ie M, 
CP, vous laisse une chance de vousrattrapper." 

390 LOCATE 6,22:PEN 2:PRINT'Ne la laisser pas echagger !!!" 

400 G607TD 540 

410 ” 

420 ‘ Mort d'une des deux laser-bykes 
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== mnt ES MSN M EN ee mn De me ue me Du 
CEE 


450 PEN S:LOCATE !,7:PRINT" Champions, vous vous etes bien battus." 

460 IF bcrasht)0 THEN coul$="rouge":rscore=rscoret! ELSE coul$="bleue":bs 
core=bscoret] 

470 PRINT:PRINT" Mais Le conducteur de la laser-byke "coul" s'est re 
vele le plus fort, C'est"s" donc à lui que le M.C.P, accorde une victo 
ire en plus.” 


490 LOCATE 10,19:PEN 1: PRINT'Joueur Bleu... ,,.,,"::PEN 2:PRINT bscore 

500 LOCATE 10,21:PEN 2:PRINT"Joueur Rouge, ...,"?:PEN L:PRINT rscgre 

3 L 

520 ‘ On rejoue ? 

Sh1' 

540 LOCATE 1,24:PEN SPRINT" Aopuvez sur La touche ENTER‘, .,":af$=[INKE 
Y$:1F a$=""THEN 540 

560 IF a$(>CHR#(13) THEN 540 

Sbù MODE 1:FOR n=-15 T0 15:SOUND 4,ABS(n}#10,5,15,0,0,ABS(n):NEXT:LOCATE 
12,3:PRINT'TRON'S LASER-BYKES':PEN 2:LOCATE 12,4: PRINT'=2=2e2sezezessesse 


470 PEN {:LOCATE 7,7:PRINT' Voulez-vous rejouer ? CO TN3" 

580 af=INKEY$:a$=UPPER$(a$):IF af<>"0" AND a$<)"N" THEN 580 

550 IF af="N'THEN 110 

400 LOCATE 7,9:PRINT"On change l'arene ? (0O/N}" 

610 a$=INKEY$: at=UPPER$(a$): IF a$<>"O" AND a$<}"N" THEN 610 

620 IF a$="N"THEN GOSUB 2150: G0SUB 2130:607T0 120 

630 GOSUB 2150:B60SUE 2070:60T0 120 

640 ‘ 

650 ‘ routine principale pour jeu a un joueur 

660 ‘ 

670 EI:AFTER temps GOSUB 1010 

680 PLOT xb,vb.l 

690 SOUND 1,100,1,7,1,1 

700 IF INKEY(bd)=0 THEN xbi=1:vbiz0 ELSE IF INKEY(bg}=0 THEN xbi=-1:vb1:0 
710 IF INKEY(bh)=0 THEN xbi=0:vb1={ ELSE IF INKEY(bb)=0 THEN xbi=6:vb{=-1 
720 xb=xb+4#xb1:vb=vh+vb1#2 

730 fuel=fuel-1:1F fuel=0 THEN GOSUB 2830: GOSUR 2780:60T0 B30 

740 PLOT 528,366,7: PRINT USING"##4": fuel: 

760 IF xbC=32+x AND xb)32#{x-13 AND vbé=létv AND ybio#(v-L)THEN viczl:60 
SUR 2870: GOSUB 2780:60T0 830 

140 berach=TEST(xb, vo; 
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170 IF bcrash=4 THEN 680 ELSE IF bcrash()0 THEN GOSUB 2910:G0SUB 2830:605 
UR 2780:G60T0 830 

780 xm=INT(RND#614)+14:vm=INT (RND#320)+6:PLOT xn,ym.12 

790 60T0 680 

800 ‘ 

Bi ‘ Fin de jeu 

B20 ‘. 

830 MODE {:DI:LOCATE 10,3: PEN 23 PRINT" = ":LOCATE {0,4 
PRINT: "22 PEN Le PRINT" TRON'S LAGER-BYKES "::PEN Z:PRINT' I": LOCATE 10,5: 


840 LOCATE 1,8:PEN S:PRINT" Vous avez essave de vous mesurer avec le Mas 
ter Control Progran, mais celui- ci n'est jamais à court de ressources . 
850 IF fuel=0 THEN LOCATE 1,12:PRINT" Vous n avez meme pas eu accez de 
uel pour l'inquieter !!!‘itenpsztenps-100:G60T0 920 

860 IF vic=i THEN LOCATE 1,12:PRINT'Pourtant, vous avez momentanement reu 
scla le mettre en deroute,.,":PRINT'Vous pouvez, bien-eur, recter sur cet 
te victoire, ":tenps=tenps+250:bscore=bscore+1:60T0 920 

870 LOCATE 1,12:PRINT" Le crach final dont vous avez ete la victime eta 
it inevitable : tot ou tard le MC,P, vous aurait vaincu... ":temps=tenps 
-100 

880 IF vic=0 THEN mscore=nscore+i 


900 ‘ On rejoue ? 

910 

920 LOCATE 1,18:PEN {:PRINT"  Neanmoins, voulez-vous refaire une un 
e partie contre moi ? (D /N)" 

930 a$=INKEYS: a$=UPPERS(a$):IF a$(3°0" AND a$<>"N" THEN 930 

940 IF a$="N"THEN G0TD 110 

930 LOCATE 13,21:PEN 2:PRINT'HA! HA! HA! ,,,":FOR i=1 TD S00:NENT 

960 LOCATE 4,23:PEN 1:PRINT"On change l'arene ? (DO/N)" 

570 aÿ=INKEY$:a$=UPPERS (af): IF a$<>"0" AND a$C>"N" THEN 970 

980 GOSUR 2150 

960 IF a$="N" THEN GOSUB 2130:G607T0 120 

{1000 GOSUB 2070:G0TD 120 

1010 ‘ 

1920 ‘ place le but a atteindre 

1030 ” 

1040 TAGOFF:x=INT (RND+1B)+2:y=INT (RND#17)#7:LOCATE x.v:PEN 13:PRINT CHR 
$(181): TAG 

1050 y=26-y 

1060 GOSUR 2760 
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1670 DI 

1080 RETURN 

19490 

1100 * instructions 
1140 * 

j120 MODE IL: BORDER d 
1130 LOCATE 16,1:PEN 2 


AG PRINT ‘:B0SUB 2800 
150 LOCATE 10,2:PRINT"!": SUB 2800 
L14D LOCATE 104 F:PRINT = ":G0SUB 2800 


1170 PEN {:CH$="TRON'S YASER-RYKES" 

1189 SOUND 7,40,150,15,5,0 

1180 FOR j=1 TO 18 

12) LOCATE 41-1,2:PRINT LEFTS(ch$f,)) 

1210 NET 

1220 FOR :=22 TQ 12 STEP -] 

1230 LÈCATE j,.2:PRINT ch$ 

1245 NEÏT : 

1280 FOR j=4ÿ T0 30 STEP -{ 

1260 LOCATE j,2:FRINT" * 

1279 NEÏT 3 

128G LOCATE SI,2:PEN 2:PRINT':":GOSUB 2B00 

1290 ch$="Instructions":S0SUR 1680 

1396 GOSUB 1759 

1710 PEN SiLOCATE 4,B:PRINT'Bienvenue a vous, Guerriers qu Futur!":"Vous 

venez de ponetrer dans le monde duret inpitovable des jeux videas, où seu 
lsles olus forts, les plus rapides ceuventesperer curvivre quelque tanpe. 
[320 LOCATE 4,14:PRINT "Vous avez ete chaieis pour particioer":"a ce duel 

par le Master Control FrogramiM,C,F. pour les intimesile combat ne seter 

miners que par la mort d'un des deuxcombattante," 

1330 PEN 2:LOCATE 4,20:PRINT'Inutile de fuir:"::PEN S:PRINT'Une fois le v 

rogramne": "engage, le duei est inevitable.Vas cortscont maintenant lies à 
celui du M,.C,P," 

1340 GOSUB 1820 

1350 GOSUE 2720 

1360 ch$="But du Duel':60SUB 1880 

1370 GOSUB 1740 

1380 PEN 3 

1360 LOCATE 1,0:PRINT" Vous allez etre places aux comnandesde nouveaux 
engins-tueur:les LASER-BYKESCe sont, en quelque sorte, des motos quilais 

sent derriere elles un sillage laserdont le contact ect mortel." 
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1400 PRINT:PRINT" Votre but sera , bien evidemment, defaire ‘crasher” 
l'autre conducteur sansoour autant en faire de rene !" 

1410 PRINT:PRINT" De plus, pour etre en actord avec ladecision du Haut 
Connissaire des Jeux.leM.C,P,a limite la consommation de fuel 3996 Megac 

redite au depart." 

1420 GOSUB 1820 

1430 GOSUR 2720 

1440 ch$="Variantes":G0SUR 1680:G0SUB 1740 

1450 PEN 3:LOCATE 1,8: PRINT" Vous pouvez, bien-entendu, combattrea deu 

x Joueurs , mais vouc avez aussi laoossibilite de vous re-entrainer cont 

rele MC,P," 

1460 LOCATE 1,13:PRINT"  - Dans Le Duel a deux, chacun dirigeune Lacer- 
Eyke," 

1470 PRINT:PRINT" - Contre le M.C.P, : Celui-ci envoiedes mines qu'il 
faut à tout prix eviter jusqu'a l'apparition du “::PEN 2: PRINT" 'WARP-BQf" 
Mes PEN SPRINT", qui“i"permet,si on l'atteint, de s'ecnapoer del'arene.* 


1490 PRINT" {Vous utiliserez la Lacer-Byke Bleuei” 

1490 GOSUB 1820 

1560 GOSUB 2720 

1516 ch$f="Connandecs":G60SÛUB 1880:G60SU6 1740 

1320 PEN S:LOCATE 1,8 

1530 PRINT" Voici les commandes dirigeant les deuxLaser-bvkes :" 


1540 PRINT:PEN 1: PRINT'Laser-Bvke Bloue"::FEN 2:PRINT" Laser-Evke 
Rouge" 

1550 PEN S:PRINT" À d 

1560 PRINT"  K --0-- f 2 ==Q-= 7" 


1570 PRIRT" 


1 


Le] 


j" 
1580 GOSUB 1820 

i:90 EOSUB 2720 

1600 ch$="Arenes de Combat": GOSUE 1680:G0SUB 1740 

1610 PEN S:LOCATE 1,8:PRINT" Enfin, le Duel peut 5e derouier surl'une 
des quatre arenes , de difficultesdifferentes, que possede le M.P,C," 
1620 LOCATE 1,13:PEN 1: PRINT" Rappelez-vous toujours que TRON luimeme 
a fini par etre vaincu par le M,P.C" 

. 1630 PEN S:PRINT'Aussi,n esperez pas de victoires faciles” 

1640 LOCATE 8,19:PEN 2:PRINT'Neannoins, Bonne Chance..." 

1650 GOSUB 1820 
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1660 RETURN 

1670 

1680 PEN ! 

1690 FOR i=1 T0 LEN(ch#):LOCATE i,5 

1700 PRINT MID$icht,i,1):SOUND 2,INTIRND#957),5,15 
1710 FOR at=1 TO SO:NEÏT at 

1720 NEXT i 

1730 RETURN 

1740 ‘ 

1750 PEN 2 

{760 FOR i=i TO LEN(ch$S):LOCATE i,6 

1776 PRINT "=": SOUND 2,INT(RND#957),5,15 
1786 FOR atz=t TO SO:NEËT at 

1790 NEXT i 

5800 RETURN 

1810 ‘ 

1920 PEN tichf="(Aopuvez sur une touchel* 
1830 FOR 1=1 T0 LEN(ch#}):LOCATE i+8,24 
1840 PRINT MIDS(ch$.i,1):SOUND 2, INTIRND#957) 5,15 
1850 FOR atzi TO SO:NEXT at 

1840 MEŸT i 

1870 CALL &BBI8 

1680 RETURN 


1890 ‘ 

1906 ‘ Menu principal 
1910 ‘ 

1920 MODE ! 


1530 GOSUB 2150 

1540 PEN 1:PAPER 0:BORDER 0 

1950 bscore=ü:rseorez0: ascore=0: tenps= 1000 

1960 FOR n=-15 T9 IS:SOUND 4,ABS(n)#10,5,15,0,0,ABS{n)NEXT 

IRIGÆDCRTE 10, SrPEN PRINT ess seereesnsnemnes ss MeLOCATE 10,4:PRINT";" 

2:PEN {:PRINT" TRON'S LASER-BVKES ‘32PEN 2:PRINT':":LOCATE 10,5: PRINT"--- 

1580 LOCATE 8,S:PEN 3:PRINT"{ Joueur contre Joueur ":LOCATE 8,11: PRINT"2 
Joueur contre le M.C.P.":LOCATE 8,13:PRINT'3 Arret du jeu” 

1990 PEN 1:LOCATE 1,16:PRINT'Choisissez votre option: (1,2 ou 3} :"100=VA 

LEINKEY#):IF opél CR op>3 THEN LOCATE 38,16:PRINT " ":G0T0 1990 

2000 IF op=3 THEN PEN 1:MODE 2:END 

2010 LOCATE 4,21:PEN 2:PRINT'Clavier ou Javstick ? { © 7 J } :"sreo$=UPP 

ERS(INKEY#)2IF REP$C)"C"AND REPS$C>"J"THEN LOCATE 38,21:PRINT" ":6070 201 

Û 


2020 IF REP$="C"THEN rd=5:rg=#irh=20srb=13:bd=621bg=63:bh=69:bh=71:G0T0 
2070 
2630 bd=75:bg=74:bh=72:bb=73:rd=5{:ra=50irh=48:rb=49 


2040 

2050 ‘ Choix de l’ arene de combat 

2040 

2070 CLS:FOR n=-15 TO 15:S0UND 4,ABS(n)#10.5,13,0,0,ABS(n):NEZT 

2080 LOCATE 10,3:PEN 2: PRINT" MeLOCATE 10,4:PRINT'i" 


2050 LOCATE {,8:PEN L:PRINT "Les differentes Ârenes de Combat :" 

2100 LOCATE 1,94 PRINT “ssssomosessessosseszesescessensepel 

2110 LOCATE 3,12:PEN S:PRINT'I- rene ouverte":LOCATE S,{4:PRINT'2- re 
ne-labvrinthe":LOCATE 3,[6:PRINT"S- rene aleatoire":LOCATE 3,18: PRINT"4 
- rene de la Mort" 

2120 PEN L:ILOCATE 1,21:PRINT"Choisissez votre eotion (1,2,3 ou 4) :":lab= 
VALUINKEY#):IF Jab<i DR lab>4 THEN LOCATE 39,21:PRINT" ":G0T0 2120 

2130 ON Lab GOSUB 2290,2440,2550,2630 

214) PEN 1:RETURN 

2150 ‘ 

2160 ‘ initialication 

2170 ‘ 

2180 INK OO:INK 1,25ENK 2,65 INK 3,18: INK 4,13: INK S1i:INK 6,19: INK 7,24 
SIN 8,21INK 9,6: INK 10,8:INK L1,4:INK 12,20:INK 13,19,1t6 

2190 xb=270svb=20:xr=370:vr=310 

2200 xri=Gixbi=0:vris-fivbisl 

2210 fuel =969:vic=û 

2220 ENV 1,9,8.1,1,0,5,9,-123ENT 1.5,1,8,10,=1,1,10,4,1,10,-1,4,5,1,1 
2230 ENV 2,15,-1,13 

2246 ENV 3,19,=1,S02ENT -3,10,10,1,10,.-12,1 

2250 ENV 4,15,-1,4 

2260 ENV 5,30,2,9 

2270 RETURN 


2280 ENV 6,18,-1,L2ENV S,15,-1,[02ENT i,50,10,1 


2290 ‘ 

2309 ‘  Arene ouverte 
2310 ” 

2320 MODE Ô 


2330 DRAUR 0,330,4:DRAMR 635,0,4:DRAHR 0,-330,4:DRAHR -459,0.4 

2340 PLOT B,4,5:DRAUR 0,322,5:DRAMR 622,0,5:DRANR U0,-322,5:DRANR -622,0,5 
2350 TAG:PLOT 0,399:DRAHR 639,0: DRAUR 0,-50:DRANR -839,0:DRAHR 0,504PLOT 
0,374: DRAUR 639.0:PLOT 304,374: DRAHR 0,25 
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28:PRINT'BLEU,, "sr PLOT 316,392 ,G:PRINT'ARQUEE,,, ,: 
366,6! PRINT'FLIEL RESTANT --5": 
2380 ON co 6070 2360,24;0 
230 si 8,552,B:PRINT'SLEU, "ri PLOT 314,392,S:PRINT'ROUGE., 
392,9: PRINT USING"##":bscore:: FLAT 974,392,8: PRINT JSING'H4 
“racere::BOTQ 2430 
2415 PLOT 274,792 ,6 PRINT HSING'##"ibecore::PLOT 574,392,8:PRINT USING"## 
"ymstare: 
2426 PILOT B,35240:PRINT BLEU, .“::PLOT 316,392,S:PRINT'MC,P,, ,": 
2430 RETURN 
2440 
2450 ‘  Arene-labvrinthe 
2460 : 
2470 GOSUB 2250 
24B0 PEN 11 
2450 car1f=CHRS (150) +CHR$ (156) 
2506 car28=CHR#(147)+CHR$ (153) 
2510 TAGOFF 
2320 FOR i=2 T0 14 STEP d:F0OR )=7 19 22 STEP GS:LACATE i 1: PRINT cart#:LOC 
ÊTE 1,34): PRINT car2$:NEXT j,i 
253) TAG 
2340 RETURN 
2550 e 
260 ‘ rene aieatoire 
257Q 
2360 60SUB 2290 
2390 PEN 10 
2606 car1$=CHRF (238) 
2616 TAGOFF:FOR izt TO 7Ü1a2 ENT (RND#19) +2: vz INT (RND#17:+7:LOCATE x ,.v:PRIN 
T carI$iNEËT 22746 
262ÿ RETURN 
2630 
2880) ‘  Arane de La Mort 
2650 ‘ 
2660 GOSUB 2260 
2670 FOR 151 TO 20:x=INT(RND#590)+20: a= [NT (RND#390) #20: v= INT (RND+295) +20: 
b=INTIRND+205)+20:PLOT x,y,12:DRAH a,b,122NEXT i 
2675 TAGOFF:FOR i=1 TO 1S:LOCATE 10,1+5:PRINT" ":NEYT: TAG 
2680 RETURN 
2695 RETURN 
2690 
2700 ‘ sons 
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2710 7 


2720 MODE ! 
2130 FOR n=-15 TO 15:S0UND 4,485 (n)#10,5,15,0,0,ABSini:NEZT 
2140: LOCATE OS IEREN 2 PRINT =emeemsmennessesessse “{LOCATE 10,2: PRINT": " 


2750 RETURN 

2160 FOR n=1 TO 20:S0OUND 4,300+INT(RND#500) ,8: NEYT 

2770 RETURN 

2780 FOR a=1 T0 29:CALL KBCAD: SOUND 135, 4a+10#4,0,1S,3,3:NEXT 

2790 RETURN 

2800 SOUND 7,0,860,15.4,0,.1 

2810 FOR a=1 TO 4O0:NEXT 

2820 RETURN 

2B3Q RESTORE 285û 

2846 READ note.dur: [IF note=-1 THEN 2840 ELSE SOUND 4 ,note.dur ,0,2:RATQ 24 
4G 

2650 DATA 1911,120,1911,60,1911,40,1911,129,1407,80,1703,40,1703,80.1911, 

40,1911,80,2025.40,1911,120.-1,6 

2860 FOR a=1 TQ 2B0O0:NEXT: RETURN 

2870 RESTORE 2390 

2680 READ note:[F notez-l THEN 2800 ELSE SOUND 4,note,20,15,1:60T0 2885 

2890 DATA 60,53,47,45,60,0,45,47,45,40,93,0,93,47,45,36,40,40,45,45,47,53 
,147,40,-! 

2500 FOR a=i TO 10O0:NEÏT:RETURN 

2910 SOUND 7,0,195.15,2,0,15 

2620 FOR #21 TO ISINK 0,26:FOR az1 T0 IG:NEZT: INK O,G:FOR 421 TO 4O:NEÏT 
3,} 

2930 FOR a=1 TD SOU: NEÏT 

2940 RETURN 
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LE CHOIX 
D'UNE IMPRIMANTE 


Michel ARCHAMBAULT 


C Fest un outil quasi indispensable pour programmer en Basic dès 

que l'on dépasse le stade du débutant. Une imprimante consti- 
tue aussi la finalité de nombreux logiciels utilitaires, exemples cour- 
rier (très supérieur à une bonne machine à écrire), éditions de tableaux, 
de fichiers, etc. 


C'est un investissement lourd, mais de /ongue durée ; une imprimante 
ne se démode pas comme un micro-ordinateur. Donc, deux raisons pour 
ne pas se tromper : mieux vaut économiser encore quelques mois, plutôt 
que d'acquérir un modèle médiocre, générateur d'ennuis de tous genres. 


LES TROIS TECHNOLOGIES D'ECRITURE 


Les thermiques 

Elles utilisent un papier spécial qui bleuit à la température. C’est très 
silencieux, assez rapide, bon marché (la machine, pas le papier}, mais 
la qualité d'écriture laisse fort à désirer ; et ce n’est pas photocopiable. 
À déconseiller en micro-informatique domestique. 


A stylos-billes 

Généralement à quatre couleurs {quatre stylos spéciaux montés sur 
barillet). Peu bruyantes, belle écriture mais d’une lenteur désespérante. 
Deux avantages : le prix et la fonction ‘‘table traçante'", c'est-à-dire 
que grâce à certains ordres spécifiques à la machine (équivalant à PLOT 
et DRAW), on peut dessiner, et en plusieurs couleurs. À ne pas 
confondre avec la ‘’copie d’écran'’ qui très souvent est impossible. 


A aiguilles 


Ou ‘’matricielles'". Jadis hors de prix (d'où l’ancienne vogue des ther- 
miques), elles sont aujourd'hui à peine plus chères que les autres. C'est 
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la technologie que nous conseillons : très rapides (100 à 200 caractè- 
res par seconde), très belle écriture (sauf certains modèles bon mar- 
ché}, papier ordinaire, en bandes perforées standard où en feuille à 
feuille ; au moins quatre tailles de caractères, plus les mêmes en itali- 
que ou en écriture ‘‘’renforcée'’, possibilité de copie d'écran graphique. 
Bref, des bêtes à tout faire, et en plus de cela, elles sont d'une surpre- 
nante robustesse mécanique (sauf une certaine marque}. Deux défauts : 
aussi bruyantes qu'une machine à écrire — une seule couleur d'encre, 
le noir. 


Les autres 

Pour usages professionnels très spécifiques, à savoir les imprimantes 
à ‘’marguerites'’ (analogues aux machines à écrire à boule IBM}, Super- 
qualité courrier, mais très lentes (= 15 CPS = caractères par seconde) 
et caractères limités à ceux de la marguerite installée. Plus chères que 
les matricielles, leurs prix ont tendance à baisser. Réservées exclusi- 
vement au traitement de texte classe PRO. 

Les imprimantes à jet d'encre, pour des tables traçantes profession- 
nelles. 

Les imprimantes au Laser. Tout pour plaire : qualité, rapidité (environ 
une page en six secondes...), mais encore hors de prix, même en pro. 
Leur principe rappelle celui de la photocopie lancée par XEROX. 


Combien faut-il compter pour une bonne imprimante à aiguilles ? Entre 
3000 et 4500 francs TTC. Certes, c'est cher, mais c'est pour long- 
temps. On change de micro-ordinateur, mais on conserve son impri- 
mante. La preuve, vous n’en voyez pratiquement pas en occasion ; sauf 
des modèles bas de gamme dont on veut se débarasser. 


COMMENT CA MARCHE ? 


L'électronique d’une imprimante rappelle celle d'un micro-ordinateur : 
elle a sa ROM (son langage) et une petite RAM appelée ‘buffer ou 
‘’tampon’’. Supposons que le micro lui envoie la lettre À majuscule, 
code ASCII 65, donc envoi du nombre 65 en binaire sur un octet. Les 
huit bits en même temps ; il y a donc, dans le câble de liaison, au moins 
huit fils numérotés ‘’DO’' à ‘‘D7'’ (voir le schéma de la page A65.2 du 
manuel AMSTRAD), auxquels s'ajoutent un fil de masse plus deux 
autres de’‘conversation’"’ appelés STROBE et BUSY. Dialogue du genre : 
“Es-tu prête à recevoir ?'° ‘’Non, je n'ai pas fini d'imprimer. Vas-y | 
…. Stop ! mon buffer est plein'', etc. | 

Nous venons de décrire le mode de‘transmission ‘parallèle (les 8 bits 
ensemble) aussi appelé standard ‘'CENTRONICS"" ; nom du fabricant 
d'imprimantes qui l'a lancé. C'est celui utilisé par AMSTRAD et la grande 
majorité des autres micro-ordinateurs domestiques où professionnels. 
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Toutes les prises côté imprimante respectent cette norme, mais pas 
côté micros, d'où des câbles spécifiques à chaque marque de micros, 
ce qui est complètement stupide et regrettable. 

Ilexiste aussi la transmission en ‘‘série’’ ou ‘RS 232 C‘’ (câble à deux 
conducteurs). C'est (heureusement !) beaucoup plus rare et très mal 
normalisé. N'en parlons pas. 

Donc, notre imprimante reçoit pour ‘‘A'’ le nombre 65 : sa ROM va 
commander les aiguilles de la tête d'impression afin qu'elles impriment 
tel dessin, ici le A. Quelle forme de A ? La forme banale, courante, prise 
par défaut dès la mise sous tension de l'imprimante. C'est la taille 
""PICA”", 80 caractères par ligne de 20 cm de long. Voulez-vous d'au- 
tres tailles de caractères ? Facile : envoyons d’abord à l'imprimante des 
ordres codés qu'elle va conserver en RAM dans son ‘‘huffer de 
consignes'’. 


LES CODES DE CONSIGNES 
IIS commencent généralement par CHR$(27). Exemple : 
PRINT #8,CHR$(27);'""4"": ‘’Vivement Dimanche’‘ 


va provoquer la forme dite en ‘‘’italique’’. Les phrases suivantes seront 
aussi en italique. Pour annuler cette consigne, trois méthodes : 

— un code de contre-ordre, ici CHR$(27);'‘5"' : 

— Un code qui vide tout le buffer : CHRS$S(27);"" ‘'; 

— éteindre et rallumer l'imprimante. 

Au point noir (si j'ose dire...), toutes les imprimantes n’ont pas le même 
langage. Celui que nous illustrons est celui des imprimantes Epson, lan- 
gage heureusement identique sur bien d'autres marques. C'est une sorte 
de ‘’standard'' officieux, un peu comme le Basic de l'AMSTRAD qui 
est considéré comme ‘'standard'' parce que très ressemblant au ‘Basic 
MICROSOFT". Dans notre exemple, il y a le listing du programme Basic 
et ensuite ce que cela donne sur la p/upart des imprimantes. 

Dans ce petit programme de démonstration, nous avons illustré quel- 
ques fonctions parmi les 53 dont on dispose sur l'EPSON RX80. 


1G ‘DEMONSTRATION D'IMPFRESSIONS SUR EPSON RX-80@ 

26 FRINT#6,CHR# (27) "@'"';: 'Nettoie le Euffer,sans sa 
ut de ligne 

38 FRINT#8S,'"Ecriture NORMALE forme FICA:80 CARACTE 
RES FAR LIGNE. " 

4Q PRINT#HS: "SAUTE UNE LIGNE BLANCHE 

SO FRINTHG,CHRS (27) "W'CHRE (1) ; "CARACTERES LARGES": 
FRINT#8 

6G FRINTHS,CHR#(27)"E"; "ON RENFORCE L'ECRITURE.":P 
RINT#8 : 

70 FRINTH#B,CHRE (27) "WCHRS (@) : ‘SUFFRIME LE MODE LA 


RGE.FAS DE ; =SAUT D'UNE LIGNE 

RQ FRINT#B,"L'ECRITURE RESTE RENFORCEE":FRINTHS8 

9@ PRINT#8,CHR# (27) "4"; "Aimez-vous l'ITALIQUE 7" 
180 FRINTH#S,CHRS (27) "S":: 'SUFPRIME L'ITALIQUE 

11@ PRINT#S,CHR#(27) "M"; "FLUS FETIT VOICI LA FORME 
DITE ELITE." 

170 FRINTHB,CHRS (27) "P"CHR#(27) °F": '"SUFPRIME ELITE 
ET RENFORCE 

13G FRINT#8,CHR£# (15) 3;"LE MODE CONDENSE FERMET DE L 

OGER 122 CARACTERES FAR LIGNE. ":PRINT#8 

148 FRINT#S,CHR£ (18); : SUPPRIME MODE CONDENSE 

15Q FRINTHS,CHRS# (27) "W'CHR£ (1) 3; CHR# (27) "M"; CHR (27 
)"4"3; CHR$ (27) "E";"COMEINONS LES MODES ITALIQUE," 
168 FRINT#B,"LARGE ELITE ET RENFORCE. 

17Q FRINT#8,CHR$(27)"@" | 

1BQG PRINTHB,"ON PEUT AUSSI "; CHR#(27)"—"CHRS# (1): "S 

OULIGNER UN MOT"; CHR# (27) "-"CHRS$(@):" OÙ UNE FHRAS 

E"+PRINTHE 

190 FRINT#S,"OU DECALER DES INDICES ET EXPOSANTS: " 

200 PRINTH8,"H":;CHRE (27) "S'CHRS (1) 5 "2" 5 CHR# (27) "T" 
s"O  E=MC"3; CHR$ (27) "S"CHRS (D) ; "2": CHRS (27) "T2: FRI 

NT#B 

210 FRINT#8,"QOU FAIRE DES SURCHARGES: XXXXXX";CHRS 
(8) ; CHRS (8) ; CHR (B) ; "————— " 

220 FRINT#B:PRINT#8,"CHANGER LA NATIONALITÉ DE CER 
TAINS CODES ASCII:" 

23@ C$="# + @ LC 1 £ 3 \ “ ‘ ! "4CHR$ (126) 

24@ FRINT#8,"FOUR USA, FRANCE , ALLEMAGNE , ANGLETERRE, 
DANEMARE , SUEDE , ITALIE ,ESFAGNE ,JAFON ET NORVEGE" 
250 PRINT#HB,"ON À RESFECTIVEMENT FOUR ‘";C#:FRINTRS 

260 FOR 1=0 TO S:FRINTHS,CHRS# (27) "R'CHRS (1); C# 

27@ NEXT:FRINTHB,CHRS# (27) "G": FRINTHS 

280 FRINTH8,"AVEC LE MODE HIT IMAGE C'EST L'IMAGE 
RINAIRE VERTICALE DU NOMBRE RECU QUI EST IMPRIME.V 

OICI 80 FOIS 255:" 

290 FRINTAS,CHRS# (27) "K"CHRE (80) ; CHRS$ (D) ; 

3Q@ FOR -N=1 TO 80:FRINT#8,CHRS (255) : : NEXT 


Ecriture NORMALE forme FICA:GQG CARACTÈRES FAK 
LIGNE, 
CRU TERES LARGES 


ON RENFORCE L ECRITURE .- 


L'ECRITURE RESTE RENFORCEE 
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Aimez-vous l'ITALIQUE 7? 
PLUS PFETIT VOIC’ LA FORME DITE ELITE. 


LE MODE CONDENSE PERMET ‘E LOGER 132 CARACTERES PAR LIGNE. 


COMBINONS LES MODES ,ITALIQUE 
LARGE» ELITE ET RENFORCE: 


UN FEUT ALSSI SGULIGNER UN MOT OÙ UNE FHRKAÂSE 


QU DECALER DES INDICESE ET EXFOSANTS: 
H2Q  E=MC? 


OÙ FAIRE DES SURCHARGES: XXXHXX— 


CHANGER LA NATIONALITE DE CERTAINS CODES ASCII: 
FOUR UGS, FRANCE , SLLEMAGNE , ANGLETERRE , LANEMBRE , 
SUEDE , ITALIE, ESRAGNE ,JAFON ET NOBVEGE 

ON À RESFECTIVEMENT FOUR #.#5 @ [ 3 £ 3 \ 4°: 


A 2 CS OS he 
# + à 5 & & & D 

# € 6 4 QU à it à Oo fi 
EC LC A € Re 
HO Æ GE É & æ à à ge © 
H ZT EE 4 À à à à LU é à 
SE PC il & 
Fe Æ GO, à 2} 54 RE 
# € GC 1] 1 5 + Sn 
# CE Æ 4 & à # Ü &é 6 


AVEC LE MOLE BIT IMAGE C EST L'IMAGE BINA IFE 
VERTICALE FELI NOMERT RECU QUI EST 1M FRIME. 
FOICI 80 FOIS ES: 


LA TETE D'IMPRESSION 


Une merveille de micromécanique ! Dans le texte mobile, il y a neuf 
aiguilles disposées les unes au-dessus des autres ; soit neuf pistons 
métalliques commandés par neuf micro-électro-aimants. Elles viennent 
frapper un ruban encreur derrière lequel est le papier. La frappe d'un 
caractère, un À par exemple, se fait en cinq déplacements latéraux de 
la tête de gauche à droite. Cent caractères par seconde, cela fait donc 


500 frappes par seconde ! On reste confondu devant une telle vitesse, 
une telle précision et aussi une telle robustesse. Je connais des petites 
imprimantes qui tournent cinq à six heures par jour depuis un an et demi 
sans toujours la moindre panne. Seul le ruban est changé tous les mois 
(voire tous les deux mois). 


LA QUALITE D'IMPRESSION 


Certains modèles bon marché ont moins de neuf aiguilles, et-le résultat 
n'est pas très joli, surtout en minuscules où il n'y a pas de jambages 
inférieurs. Ainsi, les lettres ‘’f, g, j, p et y’”’ sont ‘’remontées’’ dans la 
ligne. C'est le cas de l'imprimante rebaptisée par AMSTRAD et de nom- 
breux modèles SEIKOSHA. Voilà pourquoi elles sont moins chères. 
Ce n'est absolument pas présentable pour du courrier (avis personnel 
largement partagé). 

Autre point à vérifier : la nature du ruban encreur. Il faut qu'il soit très 
long, type machine à écrire. S'il est présenté en cartouche, attention 
au réapprovisionnement pour les marques peu connus, car chaque fabri- 
cant a ses modèles de cartouches... Un bon point pour la GEMINI STAR 
qui utilise une bobine standard. Un zéro pointé pour le modèle étiqueté 
AMSTRAND dont la (chère) cartouche ne contient qu'une boucle de 
50 cm avec passage sur une ampoule d'encre ! Résultats : démarra- 
ges avec ruban sec et caractères pâles et une rente en cartouches. Où 
se trouve alors l'économie ? 


LA COMPATIBILITE 


Le cas est rare, mais on rencontre parfois des incompatibilités d’hu- 
meur entre tel micro et telle imprimante. Par exemple, saut de ligne entre 
chaque ligne (‘’LINE FEED”"'}. Souvent, il suffit de modifier la position 
d'un switch dans l'imprimante, parfois il n'y a pas de solution. 
Donc, avant d'acheter une imprimante, essayez-/a chez le vendeur, avec 
un AMSTRAD et un câble approprié. 


LES CRITERES DE DIVISION 


Nous venons de voir les deux principaux, à savoir les jambages infé- 
rieurs des minuscules et la nature du ruban encreur. En voici quelques 
autres importants : 

— La possibilité de ‘’clavier'' français, qui permet d'imprimer les carac- 
tères minuscules accentués. C'est quasi indispensable. 

— L'écriture renforcée. C'est très pratique lorsque le ruban demande 
sa mise à la retraite. 
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— Friction/Traction. La position ‘‘Friction'’ permet de charger des feuil- 
les séparées, à en-tête, par exemple. 

— Pour faire du ‘Hard Copy’ d'écran (graphiques), il est obligatoire 
de disposer du BIT IMAGE et du pas d'interligne variable. 


A l'inverse, ne vous laissez pas séduire par des caractéristiques en fait 
peu importantes, à savoir : 

— La‘vitesse : 80 CPS est bien suffisant. 

— Les tabulations horizontales, verticales et la marge droite. Même si 
vous les avez, un bon conseil, ne vous en servez pas ! Programmez 
des SPC et comptez vos lignes en Basic, c'est beaucoup plus sûr... Pour 
le nombre de caractères par ligne, utilisez la commande AMSTRAD 
WIDTH, Après un WIDTH(40), un LIST #8 fournira un listing identique 
à celui de l'écran en MODE 1. Attention ! une commande WIDTH reste 
dans le buffer de l'AMSTRAD, pas dans celui de l'imprimante. 


Je pense que vous avez tous les éléments pour décider de cet achat 
ou non. Un dernier détail : à l’image des téléviseurs et des machines 
à laver, les fabricants d'imprimantes sont très peu nombreux, mais les 
‘’marques'' sont, elles, très nombreuses. 
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MATRIX 


Michel CHANAUD 


MATRIX est un jeu de réflexion où vous jouez contre l'ordinateur. 
Une grille est remplie de valeurs numériques aléatoires positives 
ou négatives. Vous pouvez choisir une valeur sur une rangée en 
déplaçant le curseur à l’aide des flèches horizontales et en pres- 
sant la touche COPY. A son tour, le CPC choisira une valeur, mais 
cette fois-ci dans une colonne. 

Les compteurs des deux joueurs accumulent les points obtenus lors 
de chaque choix. Attention | Il faut parfois savoir faire des coups 
‘’faibles'” si l’on veut gagner à plus long terme. 


16 REM PTTTTTT TEL TT TITT STI TT STI 
LEE EL. + M.Chanaud + + MATRI* 
le Canebal + + GARLAT 4 PTTTPTT TESTS 


ÉPRA ER EERE ER ÉHRREE 

19 INK O132INK 1,02 INK 2,6: INK 3,24: BORDER 13:MODE ! 

50 LOCATE 13,52PEN 2:FOR lA=1 TO 3:PRINT TAB(13)STRING#(15,CHR$ (1433): NEX 
Î 

56 LOCATE 28,5:PEN L:PRINT CHR$(132):LOCATE 28,6:PEN 1:PRINT CHR#(1331:L0 
CATE 28,7:PRINT CHR$(133) 

Sb LOCATE 13,8:PRINT CHRS(130)4STRINGS (14 ,CHRS (131) 1+CHR# 1129) 

60 PRINT CHR$(22)4CHR#(1):LOCATE 15,6:PEN L:PRINT'N À T R I X':PRINT CHRS 
(22)4CHR$ (0) | 

BO PEN 1: LOCATE 4, 16:PRINT"VQULEZ-VOUS LES REBLES DU JEU ? (D/N)" 

90 R#=UPPERS(INKEYS):IF Ré="" THEN 90 

100 IF LEFTS( R$,12="0" THEN GOSUB 1130 

DO REM = nnnsnns INITIALISATI 
CE 

120 CLS: LOCATE 12,10:PRINT'UN INSTANT 5.V.P." 

130 DIN BS(B) ,A$ (44) ,R(B) :DS=CHRS (207) 4CHR$ (207) 


gi 


140 RANDOMIZE TIME 

150 DATA 15,##,10,09,09,09,08,08,08,07,07,07,08,06,08,05,05,05,04,04,04,0 

3,03,03,02,02,02,01,01,01,00,00,00,00,00,00,-1,-1,-14-2,-23-2,-34=31"3 4 

dd ,-5,-5,-5,-8,-6,-8,-7,-7,27,-8,-8,-8,-9,-9,-9 4-9 

166 FOR 1421 TO 64:READ AS(IU):NEXT 

170 FOR Vtt TO 8:FOR H4=1 70 8 

180 A=INTRNDE64) +1: aa IF A$(A)="##" THEN 180 

190 IF AS(AU)="##" THEN AS (A1) =0$ 

200 BS(VHI=BS (VE) +AS (AN) 2 AS ALI="N": IF RIGHTS (RSIVZ).2120$ THEN CTABH=HE 

#2-L:LTABU=VT 

210 NEXT:NENT 

220 FOR 1421 TO 8:BB#(IX)=B$ (1%) :NEXT:CCTARH=CTABA:LLTABY=L TABZ 

220 St=0:TY=0: LPY=0:M0Y=2 

240 GOSUB 730 

DS REM MOUVEMENT DU JOUEUR 

260 1F BILTABL)=0$+0$+0$+0$+0$+0$+05+0$ THEN EOTO 930 

270 GOSUE 1050 

280 IF INKEY(91=0 AND HIDS(BF(LTABZ) CTABZ,2)6)08 THEN 340 

290 DC=-2#(INKEV(1)=0)+28(INKEY(8)=0):IF DCH=0 THEN  LOCATE (34CTAB447)/ 

2,28LTABH42:PEN 2:PRINT  MIDS(BS(LTABX) ,CTABY.2):FOR 121 TO 10:NEXT:LOCAT 

E (3RCTABH471/2,24LTABN+2:PEN L:PRINT  MIDS(B$(LTABZ) ,CTABX,2):FOR 1=1 TO 
LO:NEXT :6070 280 

100 CTABH=CTABY+DC 

310 IF CTAB4=-1 THEN CTABX=15 

320 IF CTABA=17 THEN CTAB4=I 

330 LF MIDS(BS(LTABL) .CTABY,21=0$ THEN GOTO 300 | 

340 LOCATE (BCTABN47)/2,2#LTABU42:PEN 2:PRINT  MIDS(BSILTABY) CTABE,2):F 

DR 1=1 TO (O:NEXT:LOCATE (J#CTABA471/2,28LTAB4+2:PEN PRINT MIDS(BS(LTA 

4) ,CTABA,212FOR I=1 TO AU: NEXT 

30 FOR 121 TO 30:NEXT:6070 280 

360 PEN L:LPY=VAL(HIDS (B$(LTABX) ,CTABZ,21) 

370 LOCATE (J#CTABN+7)/2,24LTAB42:PRINT D$:B$ ILTABLI=LEFTS (B£ (LTABL) .CTA 

BU-1)+0$4RIGHTS (B$ (LTABL) ,15-CTABX) 

380 Su=SU+LPU:MDL={ 

390 GOSUB 890 

ADD REM==---- nn nnee - JEU DU CPC 

410 GOSUE 1080 

420 FOR N4=1 TO B:RINL)=0:NEXT 

430 FOR N2=1 TD B:V4=-100:IF NU=LTABY THEN 560 

440 IF MIDSIBS (NZ) ,CTABZ,2)<30$ THEN 480 
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450 WX=-100 
46) IF NY=LTABY THEN 550 

470 G60TO 490 

480 WA=VAL (MIDS (RS (NL) ,CTABX,2)) 

490 FOR MA=1 TO 15 STEP 2 

500 ÎF MA=CTABZ THEN 540 

510 IF MID$(B$INL) ,M%,21=0$ THEN 540 

520 IF VAL(MIDS(BS (NL) ,M4,2))€V% THEN 540 

530 VE=VAL(NIDS(B# (NZ) ,M4,2)) 

540 NEXT MA 

550 RINL)=H4-V7 

560 NEXT N! 

570 VY=-100 

580 FOR N=1 TO B 

590 IF MIDS(B$INX) ,CTABZ,2)=0$ THEN 630 

600 IF RINXIVY THEN 630 

610 VY=RINY) 

820 LTABY=NX 

b30 NEXT N4 

640 LPY=EVAL(MIDS(B$LTABX) ,CTABX,2)} 

850 Tt=T+LPX 

B60 LOCATE (3#CTAB4+7)/2,2#LTAB4+2:PRINT 0$ 

870 B$ILTABY)=LEFTS(B$(LTABZ) ,CTABY-1)+0$+RIGHTS(B£ (LTARX) ,15-CTAB%) 
6BO LOCATE (3#CTAB4+7)/2,2#LTAB4+2:PRINT 0$ 

690 MDZ=2 

700 GOSUB 890 

710 60TO 250 

720 END 

730 REM--—- ne TABLEAU DE JEU 
740 CLS:LOCATE 11,1:PEN 3:PRINT'N À T R I X":PEN 1 

750 LOCATE 4,3:PRINT CHR$(150)::FOR I%=1 TO 7:PRINT CHR$(154)4#CHR#(154)4C 
HRSUISB)::NEXT: PRINT CHRS(154)4CHR$(154)4CHRS (156) 

760 L$=CHRS(149)+"  "iK#=CHRS(154)+CHR$(154)+CHR$ (159) 

770 FOR JYz=1 TO 7: PRINT TAB(4) 

780 FOR IZz1 TO B:PRINT L$::NEXT:PRINT CHRS(149) 

790 PRINT TAB(4)CHRS(151):2FOR 1421 TD Z:PRINT K8::NEXT:PRINT CHRS(15414C 
HR#(154)+CHR$ (157) 

800 NEXT J{ 

810 PRINT TAB(4)::FOR If=1 TO SPRINT L#::NEXT:PRINT CHR$ (149) 

820 PRINT TAB(4)CHRS#(147)::FOR 14={ TO 7:PRINT CHRS(154)+CHRSC154)+CHR$ (I 
55) :2NEXT: PRINT CHR$(154)+CHR$(154)+CHR$ (153) 


gzo FOR Y#=1 TO B:FOR CPZ=0 TO 7 
840 KY=24CPY+I 
850 LOCATE KX+CP4+4,2+2aY{: IF MIDS(B$ (YA! ,X%,21="15" THEN PEN 3 ELSE PEN 


] 

869 PRINT MIDS(B$(7%),42,2) 

670 NEXT:NEXT 

30 RETURN 

39G REM---------mmeunnnese AFFICHAGE DES POINTS 
900 LACATE 30,9:PRINT "VOUS: "S%:LOCATE 30,11:PRINT'CPC 1 "T4 

910 LOCATE 5,21: PRINT'DERNIER COUP ="LPA:LOCATE 10,23:1F MOX=1 THEN PRINT 
"AU SPC DE JOUER" ELSE PRINT "A VOUS DE JOUER" 

R£b RETURN 

930 REN-------mesmmonnomesnanusss FIN DE LA PARTIE 

3406 KINDOW #0,1.40,20,25:CLS:HINDON #0,1,40,1,25 

930 LOCATE 16.21:FEN 3 

SEQ IF 5S%=7T% THEN PRINT" MATCR NUL" 

70 IF EXITX THEN FRINT'BRAVO,., VOUS AVEZ GAGKE, " 

880 IF SY€TX THEN PRINT" J'AI GAGNE,* 

890 PEN L'LOCATE 5,24:FRINT" VOULEZ-VOUS: ":LOCATE 20,23:FRINT'{- LA MEME 
PARTIE: LOCATE 20,24:PRINT"2- UNE AUTRE PARTIE":LOCATE 20,25:PRINT"3- ARR 
ETER" 

[006 RS=INKEYS: IF R#<o"" THEN 1000 

1010 RS=INKEYS#: IF R#="" THEN 1010 

1520 IF R$="3" THEN CLS:END 

1030 IF R$="{" THEN CLG:FOR IXs1 TO B:B#(1%)=BB$ (IX): NENT:LTABH=LLTABY:CT 
AB4=CCTABR4:60T0 230 

19549 RUN 110 

1050 REM---------msnmnesennnnse CLIGNOTEMENT DU CURSEU 
Fo = srmesonmemmmmmmnmenmnees 

1060 LOCATE (S#CTAR4+7)/2,24LTAB%+2:PEN 2:PRINT O$:FOR [21 TD 10:NEXT:LOC 
ÂTE (S#CTAB%+7)/2,24LTARY#+2:PEN 1: PRINT O$:FOR 1=1 TO 10:NEXT 

1970 RS=INKEVS: IF R$="" THEN 1060 ELSE RETURN 

JÜED REM------.mnmnnnse ANALYSE DE LA COLONNE 
1090 C$="" 

1100 FOR NY=1 T0 8:C$=C$+MIDS(BS (NX) ,CTABY,2):NEXT 

11E0 IF C$=0$+0$+0$+0$+0$+0$+0$+0$ THEN 930 

1120 RETURN 

1130 REM --------sssenese REGLES DU JEU 


1149 CLS 

tt50 PRINT:PRINT'UNE GRILLE EST AFFICHEE, CONTENANT SES": PRINT: PRINT"NOME 
RES DISPOSES DE FACON ALEATOIRE," 

+160 PRINT:PRINT'LE AUT DU JEU EST D'OBTENIR PLUS DE 

1176 FRINT:PRINT'POINTS QUE L'ORDINATEUR." 

1189 PRINT:PRINT'OUAND C'EST À VQUS DE JOUER,VOUS POUVEZ” 

1190 PRINT:PRINT'DEPLACER LE CURSEUR HORIZONTALEMENT": PRINT: PRINT'AVEC LE 
G FLECHES +CHRS(242)+° ET "+CHRS(243)+" ET PRENDRE" 

1200 PRINT:PRINT'LE NOMBRE CHOISI EN APPUYANT SUR [COPY], * 

1210 PRINT'L'ORDINATEUR CHDISIT DANS LA COLONNE, ” 

1220 LOCATE 10,24: PRINT"APFUVEZ SUR UNE TOUCHE" 

1230 R$=INKEYS: IF R$="" THEN 1230 

1240 RETURN 

1230 END 
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C2 


TOUS À TABLE 


Michel ARCHAMBAULT 


L° plan de table d’un banquet se doit de respecter les ‘’règles'’ sui- 
vantes : chaque convive doit avoir comme voisins et vis-à-vis une 
personne de sexe opposé, et aucune de ces trois personnes ne doit 
être son conjoint ; sauf cas particuliers (jeunes mariés). 


Ce fastidieux casse-tête est résolu instantanément par ce programme, 
mieux, il vous propose plusieurs solutions répondant aux critères ci- 
dessus : deux colonnes de noms à l'écran vous présentent les person- 
nes en vis-à-vis. 

Lorsqu'une des solutions vous plaît, inutile de la recopier, pressez la 
touche E, et elle est éditée sur imprimante. 

Ce programme n'est pas d'une utilisation fréquente (hélas, hélas !...), 
mais sa conception, uniquement logique et aléatoire {il n'y a pas de 
RND), constitue un exercice Basic qui, lui, n’a rien de futile ! 

Si vous n'avez pas l'intention de le recopier au clavier, essayez quand 
même le module du titre {lignes en 12000) dont le type d'animation 
pourra vous inspirer pour des programmes personnels. 


L'ENTREE DES NOMS 
Elle se fait en trois étapes : la liste des couples, celle des filles, celle 


des garçons. Le nombre total de convives est limité à quarante, ce pour 
des raisons de présentation à l'écran. 


COUPLES 
(lignes en 3000) 


L'écran de saisie présente ‘‘Mr, Mme’’, vous complétez par le nom. 
En fin de liste, on tape ‘’Q’" (quitter). Le nom tapé est entré en deux 
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tableaux DIM ; M$(C) pour les maris, et E$(C) pour les épouses. L'ad- 
jonction du ‘Mr’ ou du ‘Mme’ est automatique. 


FILLES 
(lignes en 4000) 


Les noms entrés sont mis en DIM F$(F). Le préfixe ‘’Mle”” est automa- 
tique. 


GARÇONS 
(lignes en 5000) 


Même méthode, mise en DIM G$(G). Le préfixe automatique est cons- 
titué par deux astérisques. 


En cours de saisie, le total TOT est incrémenté ; s'il atteint quarante, 
on est prévenu par un bip sonore, et le programme passe à la suite. 
TOT est bien sûr égal à (Cx2})+F+6G. 

Dans les trois écrans de saisie, les noms sont autopositionnés sur deux 
colonnes. En bas de l'écran figurent les décomptes incrémentés, par 
exemple, ‘‘5 Demoiselles *x «Total = 18". Le passage d'un tableau à l'au- 
tre se commande par la lettre ‘‘Q"”. 


LA DISPOSITION 


En fin de saisie, nous possédons quatre listes, les DIM M$, E$, F$ et 
G$, avec lesquels le programme va créer une cinquième, D${D), D signi- 
fiant ‘‘Disposition"". C'est une suite de noms avec alternance masculin- 
féminin et éloignement des conjoints. C'est là, le ‘‘gros morceau” | 
Une fois cette suite établie, nous l’afficherons sous forme de boucle 
fermée autour d'une table longue. En faisant tourner cette boucle d'un 
cran à chaque fois, nous pourrons changer les vis-à-vis, tout en 
conservant ses voisins droite-gauche. OK ? 

Ces ‘'calculs”" concernent le traitement des couples, de loin le plus 
complexe, puis on enchaîne sur le mixage des listes filles et garçons. 


LA DISPOSITION DES COUPLES 
(lignes en 6000) (figure 1) 


Le traitement est différent selon le nombre de couples, C est pair ou 
impair. Si C est pair, la variable P=1. 

D'abord, un premier passage en zig-zag : M$(1}), E$(2), M$(3), E$(4), 
etc. {voir figure 1a). Ce premier passage est commun aux nombres de 
couples pairs et impairs. 
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Second passage : pour C impair, c'est du zig-zag mais en commençant, 
cette fois, par l'épouse du couple n° 1 : E$(1}), MS$(2), E$(3), M$(4), 
E$(3), etc. que C soit pair ou impair, on termine toujours par une 
épouse ; normal puisque l'on débute toujours par le mari M$(1). 


l'a 17 passage lb] 2 ême passage 
C pair et impair C impair 


Figure 1 
Ce mode de balayage des listes Maris et Epouses assure une dispersion parfaite dans 
la liste finale DS. 


DISPOSITION DES CELIBATAIRES 
(lignes en 7000) 


La fonction Basic MIN(G,F) fournit le nombre de ‘‘couples de célibatai- 
res’”, l'excédent en filles ou en garçons sera conservé tel quel (comment 
faire autrement). Là, c'est très facile, on prend alternativement un gar- 
con, une fille : G$(1), F$(1), G$(2}, F$(2), etc., et on complète par 
l'excédent’. 

Le tableau D${D} est enfin terminé. On a alors D=TOT. 


L'AFFICHAGE 
(lignes en 10000) 


Les deux colonnes à l'écran figurent les personnes en vis-à-vis. Elles 
sont séparées par deux caractères graphiques flèche gauche - flèche 
droite, appartenant au troisième jeu de caractères de l'AMSTRAD, obte- 
nus en faisant précéder de CHR$(1}) (ceux obtenus au clavier par 
CTRL H, CTRL I}. 

C'est la liste D1(D) qui aurait été pliée en épingle à cheveux, le coude 
étant en bas de l'écran. 


En bas de l'écran figure la légende : 

P = Permutation : c'est le changement de vis-à-vis ; peut être répétée 
un nombre indéfini de fois. 

E= Edition (si vous avez une imprimante) : la disposition présentée à 
l'écran est imprimée. On peut demander une édition (ou plusieurs) de 
diverses petmutations. 

O = Quitter : tout est effacé, on a alors le choix entre l'abandon du pro- 
gramme et une nouvelle saisie de noms. 


LA STRUCTURE DU PROGRAMME 


L'auteur est un inconditionnel de la programmation ‘’structurée'" (ou 
‘’modulaire‘‘). Ainsi, tout le scénario du programme est dans les lignes 
en 1000 (peu nombreuses... }). Elles appellent les différents sous- 
programmes (ou modules) par des GOSUB ; d'où une souplesse totale 
pour des modifications ultérieures, et ce en toute clarté puisque cha- 
que module (ou sous-module) débute par un numéro de ligne multiple 
de 1000. Une bonne et sage habitude à prendre. 

Autres précautions habituelles : en ligne 100, toutes les variables seront 
des nombres entiers : gain en mémoire (2 octets au lieu de 5... } et 
boucles FOR-NEXT deux fois plus rapides. D'autre part, on confirme 
le MODE 1 et l'ORIGIN graphique afin de ne pas ‘‘hériter'” d'options 
antérieures qui ne sont pas annulées par NEW ou RUN. 

En fin de programme, ligne 1300, on restitue les options couleurs par 
défaut que l'on avait modifiées. Ce qui s'appelle laisser le micro dans 
l'état où on l’a trouvé... 


LE TITRE ANIME 
(lignes en 12000) 


Il n'apparaît qu’en fin de chargement. Sur l'écran, se dessine un verre 
ballon qui se remplit de vin rouge, du Beaujolais bien sûr, car je suis 
chauvin sur ce point. 

Ce grand arc de cercle (le ballon) est tracé par une suite de ‘cordes 
de cercle'’ depuis 135° jusqu'à 4065 {lignes 12020 à 12050}. C'est 
très rapide. Le pied est dessiné par des DRAWR (12100-12110). 
Le vin : sur un rayon légèrement inférieur, afin de ne pas effacer le verre, 
on fait PLOT sur un arc de cercle depuis 270° {le fond) jusqu'à 370° ; 
de là, on trace des traits rouges vers la gauche, de longueurs égales 
à deux fois le cosinus de l'angle {lignes 12200 à 12230). 

On attaque alors le texte : 

La chaîne ‘‘Disposition des convives'’ vient se centrer en arrivant par 
la gauche de l'écran (12310 à 12330). Puis, deux lignes plus bas, la 
chaîne ‘‘autour d’une table’’ vient se centrer en arrivant par la droite 
(12340 à 12360). 


En bas à gauche de l'écran, le nom de l'auteur et l’année apparaissent 
caractère par caractère en commençant par le dernier (12400-12410). 
Deux secondes plus tard, il s'efface de la même manière par 
PEN = PAPER (12420-12430). Les boucles FOR J=1 TO... sont des 
ralentisseurs. 

En bas à droite, apparaît alors ‘‘Pressez une touche’’, suivi de CALL 
&BBO6 (ligne 12450), routine qui bloque le programme en attendant 
un caractère au clavier. C'est plus simple à écrire que WHILE 
INKEY$ = ‘"""":WEND. 

NOTE : Toutes ces techniques d'animations simples {et beaucoup d'au- 
tres) sont décrites plus en détail dans l'ouvrage du même auteur 
MIEUX PROGRAMMER SUR AMSTRAD"" (Editions SORACOM). Hé 
hop ! un peu de pub... 


PETITS CONSEILS D'UTILISATION DU PROGRAMME 


Il est nécessaire d’avoir un nombre de couples supérieur à deux afin 
que les conjoints soient séparés. 

Pour ne pas séparer un couple, exemple des jeunes mariés à un repas 
de noce, il suffit de les entrer en tête de liste des célibataires. 
Entrez les enfants en dernier, ils seront ainsi regroupés. 

Si le nombre total des convives est impair, il y aura forcément quelqu'un 
sans vis-à-vis. À vous d'effectuer des permutations successives (tou- 
che P) jusqu'à trouver la solution viable, par exemple la personne que 
l'on peut mettre en bout de table. 

Suprême avantage de ce programme : si quelqu'un vous reproche 
d’avoir été mal placé, vous pourrez lui répondre par cet air connu : ‘’Ce 
n'est pas de ma faute, c’est l'ordinateur... 


iù ‘ TOUS À TABLE, 

29 ‘Disposition de Convives autour d'une Table, 

30 ‘ AMSTRAD # Michel Archambault * 1985 

190 DEFINT A-Z:ORIGIN 0,0: MODE ! 

200 GOSUR 12000: ‘TITRE 

1009 ‘ DEROULEMENT OU PROGRAMME 

1010 DIM M$(21),E#$(21),F$(37),6$(37),D$t41) 

1520 PAPER O:PEN 2:RORDER 15:CLS . 

1630 LOCATE 4,10:PRINT "E = ENTREZ LES NOMS DES CONVIVES, * 
164G LOCATE 4,13:PRINT VQ = QUITTER LE PROGRAMME, " 
1050 R$=UPPERS(INKEYS): IF R£="" THEN 1050 

1660 IF R$="D" THEN 1100 

1970 IF R$K2"E" THEN PRINT CHRS(731:R$="":60T0 1010 
1100 GOSUB 3000: ‘ENTREE COUPLES 

1110 GOSUB 4000: 'ENTREE FILLES 
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1120 GOSUB 3000: "ENTREE GARCONS 

1130 GOSUB 4000: "CALCULS COUPLES 

1140 GDSUB 7000: "CALCULS CELIBATAIRES 

1150 GOSUB 10000: "AFFICHAGE 

1206 RUN 1000 

1300 BORDER 1:PAPER OPEN H1CLS 

1310 END 

3000 ‘ ENTREE DES COUPLES 

3010 PAPER L:PEN O:BORDER 14:CL5:C={:L21 

3020 LOCATE 5,2:PRINT “20 COUPLES maxi : QUITTER--) Q" 

3100 LOCATE 2,3+L:GOSUR 3500:1F FG=1 THEN 3200 

3119 LOCATE 21,3#L:60SUB 3500:IF FQ=1 THEN 3200 

3120 LeL+1:6070 3100 

3200 RETURN 

3500 LINE INPUT "MrMne ",C$:IF UPPERS(C$)="Q" THEN FG=1:C=C-1:G0T0 3600 
3510 CS2LEFTS(CS,12):M$(C)2 "Mr "CH: ES(C)="Mne "+C$ 

3520 TOT=T07T+2:IF TOT=40 OR C=20 THEN PRINT CHR$(7J:FOR [=1 TO 4000: NEXT: 
FR=1:60T0 3600 

3530 PEN S!LOCATE 9,24:PRINT Ci"couples #* Total="{TOTIPEN 0 
3940 C=C+] 

3600 RETURN 

4000 ” ENTREE DES DEMOISELLES 

4003 IF TOT=40 THEN 4600 

4010 PAPER 1:PEN O:BORDER 7:CL5:F=1:L=1:FQ=0 

4026 LOCATE 3,2:PRINT "36 DEMOISELLES maxi : QUITTER--» Q” 

4100 LOCATE 2,3+L:GOSUR 4500:1F FQ={ THEN 4200 

4110 LOCATE 21,3+L:G0SUB 4500:IF FQ=1 THEN 4200 

4120 L=L+{:6010 4100 

4200 RETURN 

4500 LINE INPUT “Mie ",C$:IF UPPERS(C#)="Q" THEN FO=1:F=F-1:G0T0 4600 
4510 C$=LEFT#(CS,12):F$(F)="Mle “+C$ 

4520 TOT=T0T+1:1F TOT=40 OR F=36 THEN PRINT CHR$(75:FOR I=1 TO 4QQO:NEÏT: 
FO=1:G60TO 4600 

4530 PEN SLOCATE 7,24:PRINT Fi "Denciselles ++ Total="{TOTIPEN 0 
4540 F=F+] 

4600 RETURN 

5000 ‘ ENTREE DES GARCONS 

3003 IF TOT=40 THEN 5600 

9010 PAPER 1:PEN O:BDRDER 1:CLS:G=1:L21:F 020 

3020 LOCATE 5,2:PRINT "36 GARCONS maxi : QUITTER--) 8° 

3100 LOCATE 2,3+L:GOSUB 5500:IF FG=1 THEN 5200 

3110 LOCATE 21,3+L:60SUB 5500:1F FO=1 THEN 5200 
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9120 LeL+1:6070 5100 

3200 RETURN 

3900 LINE INPUT “#4 ",C$:IF UPPERS(C#)="0" THEN Fü=1:6=6-1:6070 5600 
J910 C$SLEFTS(C$,12):6$(6)="xx "+C$ 

3920 TOT=TOT+1:IF TOT=40 OR 6=34 THEN PRINT CHR$(7):FOR I=1 TO 4000:NEXT: 
FO=1:6070 5600 

990 PEN S:LOCATE 9,24:PRINT 6: "Garcons +* Total=":TOT:PEN 0 
5040 6=6+1 

3600 RETURN 

6000 ‘ DISPOSITION COUPLES 

b010 D=0:1F C<0 THEN 6900 

6020 IF INT(C/2)=C/2 THEN P=1 

bi00 ‘PASSAGE 

6110 I=1 

6120 D=D+1:D$(D}=M$([) 

6130 IF IXC THEN D=D+1:D$(D)=E$(1+1):1=[+2:60T0 6120 
6190 IF P=] THEN 6300 

6200 ‘ PASSAGE 2 C IMPAIR 

6210 1=1 

6220 D=D+i:D$(D)=E$(1} 

6230 IF I(C THEN D=D+1:B$(D)=M$(I+{}:1=1+2:G60T0 4220 
6240 G0TO 6900 

6300 ‘ PASSAGE 2 C PAIR 

6310 1=2:D=D-1 

6320 D=D+{:D$(D}=M$(1) 

6330 D=D+1:D$(D)=E$(1-1} 

6340 IF [=C THEN 6900 

6350 1=1+2:G0T0 6320 

6900 RETURN 

71000 ‘DISPOSITION CELIBATAIRES 

7010 A=MIN(G,F):1F G+F=0 THEN 7900 

7020 FOR 1=1 TO A 

7030 D=D+1:D$(D)=6$(1) 

1040 D=D+i:D$(D)=F#(1) 

71050 NEXT 

7060 IF G=F THEN 7900 

7070 IF G(F THEN 7200 

71100 FOR I=F+1 70 G 

7110 D=D+1:D$(D)=6#(1) 

7120 NEXT 

7130 G0TO 7900 

7200 FOR [=6+1 T0 F 
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7210 D=D+1:D$(D)=F$(1} 
7220 NEXT 

7900 RETURN 

10000 "AFFICHAGE 

10010 PAPER 2:PEN O:BORDER 9:CLS:PRINT 

10100 IF 'INTITOT/2)<TOT/2 THEN TOT=TOT+1 

10110 B=T0T/2 

10120 FOR I:1 TDR 

10130 PRINT " ":D$(I)::PRINT TAB(19):CHRS (1); CHRS (GB): CHRS(1);CHRS(P)" vs 
D#(TOT+1-1) 

10140 NEXT 

10150 PEN 3:LOCATE 1,24: PRINT TOT:"P=Perautations E=Edition: G=Quitter":P 
EN 0:R$="" 

10160 RS=UPPERS(INKEYS):IF R$="" THEN 10180 

10170 1F R$="@" THEN 10900 

10180 IF R$="E" THEN GOSUB 11000:R$="":60T0 10160 
10190 IF R$C)"P" THEN 10150 

10200 ’PERMUTATION 

10210 D$(0)=D$11) 

10220 FOR 1=1 TO TOT-1:D#(11=D$(1+#1) 

10230 NEXT 

10240 D$(TOT)=D$ (0) 

10250 R$="":6070 10000 

10900 RETURN 

11000 "EDITION 

11010 PRINT #B,CHRS(27):CHR$ (64) 

11020 FOR 1<1 TO B 

11030 PRINT #8," ":D$(I);SPC(20-LEN(DS(1)))5" » ":D$(TOT+1-1) 
11040 NEXT 

11050 PRINT #8 

11060 RETURN 

12000 ‘TITRE 

12010 MODE 1:PAPER 2:PEN 0: BORDER 9:CLS:R=100 
12020 DEG:PLOT 249,271,0 

12030 FOR A=135 TO 405 STEP 10 

12040 DRAH R#COS (A)+320 ,R#SIN (A) +200 

12050 NEXT 

12100 PLOT 310,100:DRAMR 0,-50:DRAHR -60,-10 
12110 DRAWR 140,0: DRAMR -60,10:DRAUR 0,50 

12200 R=98 

12210 FOR 4=270 TO 370 
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{2220 FLOT COS(4)*R+320,SIN(4)+#R+200,3 

12230 DRAUR -COS (A) #R#2,0:NEXT 

12306 PEN S:H$="DISPOSITION DE CONVIVES":B$="AUTOUR D'UNE TABLE," 
12310 AF=SPACES$ ((4O-LENGHS) }/2-1)+H$ 

12320 FOR 21 TO LEN(AS::FOR J=1 TD 1O0:NEXT 

12336 LOCATE SPRINT RIGHTS(A$.I}:NEXT:FEN 0 

12340 A$=2RS+SPACES  (40-LEN(B$} ; 72) 

12356 FOR I=1 TO LENCAS):FDR J=1 TO HOG:NEXT 

1236 LOCATE 41-T.b:PRINT LEFTH(AS,L):NEXT 

12466 N$="N, Archanbault-1985":F0R I=18 TO 1 STEF -i 

12413 LOCATE F+1,24:PRINT MIDS(NS,I,1):FDR J=1 TO IOO:NEYT:NEXT 
12420 FOR J21 TG AO0O:NEXT:PEN 2:FOR 1=1B TO { STEP -1 

12450 LOCATE [+1,24:PRINT MIDSINS,1,1):FOR 21 TO 1O0:NEXT:NEXT 
12450 PEN GSLDCATE 22,24: PRINT "pressez une touche"::CALL &BB06 
12900 RETURN 


AWARI 


AWARI est un jeu de réflexion d'origine africaine où vous affrontez 
votre CPC. De toutes les variantes de ce jeu, celle-ci permet au mieux 
d'exercer ses talents de tacticien, surtout dans le maniement des gros- 
ses maisons. À noter : la particularité de pouvoir se déplacer dans la 
partie, au moyen des flèches horizontales et de reprendre ses coups, 
permet de progresser plus rapidement dans l'apprentissage de ce grand 
classique des jeux de stratégie. Les règles du jeu sont incluses dans 


le programme. 
TN ITALIE TS SEE LED I SET SES EEESESEES ESS E 


20 ‘+ + 
30 ‘+ AWARI MC, # 
40 ‘+ + 


SIM ITTI PTT ITS RSI ETEEZTE SSD SE 
70 GOSUB 1460 ‘ presentation et regles 


Q0 ‘===2222322 IN[TIALISATIONS =22=2=222 

100 Ka=1:04=14:P4=13:F 4250: D4=12 

110 D$=SPACES (39) 

120 DIM B(0%),T (02), (0%) ,H(Q2) VB) ,U(6) ,AR(300,15) 
130 : 

140 ‘====222222= DEPART =========222525 

156 RANDOHIZE TIME 

160 ZB=AND(0):2B=2B/0%: 2A=0, 25+1B:2B=0.25-1B 

170 FOR J4=1 TO D4:B(JX)=4:NEXT 

180 GOSUB 1280 

190 GOSUB 1140 

200 LOCATE 1,24:PRINT* VOULEZ-VOUS JOUER LE PREMIER ? (O/N)° 
210 GOSUB 1410 
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220 60SUB 2710 

230 LOCATE 1,24:PRINT D$ 

240 IF R$="0" THEN COM4=1:607T0 400 

250 IF R$C)"N" THEN 200 

260 : | 

270 ‘===2222 BOUCLE PRINCIPALE ==2222222 

280 GOSUB 2700 :AR(COUPZ,15)=1 

290 PEN 2:LOCATE 1,21:PRINT D$:D$:D$: :LOCATE 1,21:PRINT" JE REFLECHIS "; 
:60SUB 910 

300 IF MA4<i THEN 1380 

310 LOCATE 1,21:PRINT D$::LOCATE 1,21:PRINT" JE JOUE EN":M%: SOUND 7,100, 
19,5 
320 GSCPCA=<0: FOR J#=1 TO G4:T(J4)=B (0%) : SCPC4=SCPCH+B 174): NEXT:GOSUB 710 
330 IF SCPCX<)0 THEN 360 

340 OK*=0:FOR IX=1 TO 6:1F B{14)+17%)27 THEN OK£=1:NEXT 

350 IF OK4=0 THEN 1380 

360 FOR J4=1 TO QX:B(JX)=T(J4):NEXT:GOSUB 1150 

370 IF B(04)<24 THEN INTERA#:0:60T0 400 


380 LOCATE 1,21:PEN 3:PRINT" J'AI GAGNE !":D$:G0T0 570 
390 : 
400 ‘==2z22e JEU DU JOUEUR =====22=22222 


410 IF INTERY=1 THEN 430 
420 LOCATE 1,24:PRINT D$:LOCATE 1,24:PEN 2:PRINT" QUEL EST VOTRE MOUVEME 
NT? (1 -46)" 

430 GOSUB 1410 

440 LOCATE 1,24:PRINT D$ 

450 IF ASC(R$)=242 THEN GOTO 2600 

460 IF ASC(R$)=243 THEN BOTO 2730 

470 IF R$<"{" OR R$)"6" THEN 400 

480 IF INTERZ=1 THEN 430 , 

490 GOSUB 2700: AR (COUPY, 15) =0 

500 MA=VAL (R$) 

510 FOR JY=1 TO QL:T(JX)=B JL): NEXT 

520 GOSUB 710:1F M4(0 THEN 650 

530 FOR J4=1 TO GU:B(J4)=T (IX) :NEXT 

540 MNL=MN4+1:G0SUB 1140 

550 IF B(PK)(24 THEN 270 

960 LOCATE 1,21:PEN 3:PRINT" BRAVO ! VOUS AVEZ GAGNE.":D$ 

570 PEN 2:LOCATE 1,24:PRINT" VOULEZ-VOUS ANALYSER CETTE PARTIE ?" 

580 GOSUB 1410 

590 IF R$="0" THEN COUPY=0:LOCATE 1,21:PRINT" “4+CHR$ (242) +" 
ou JEU ou "+CHR$(243)+D$:60T0 2730 
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600 LOCATE 1,24:PRINT' VOULEZ-VOUS JOUER UNE AUTRE PARTIE (O/N)" 

610 GOSUB 1410:IF R$="0" THEN 140 

620 IF R$=°N" THEN CLS:LOCATE 15,15:PEN 3:PRINT'AU REVOIR":CALL &BB1B:END 
630 GOTO 610 


650 lzssszzsz COUP ILLEGAL s=zs:225222222: 

B60 PEN S:LOCATE 1,24 FOR i=i TO 15:SQUND 7,50,2,12:FOR j=1 TO 20:NEXT j 
il 

870 IF Mäz-1 THEN PRINT" CETTE CASE EST VIDE." 

680 IF MA=-2 THEN PRINT" IL FAUT LAISSER DU JEU 4 L'ADVERSAIRE," 

690 FOR J=1 TO LO00:NEXT:PEN 1: COUP#=COUP4-1:60T0 400 


700 : 

710 ‘=2=sssss CAGE VIDE 79 ==z2s2sssses 
120 IF T(M4)=0 THEN MA=-1:RETURN 

730 : 

DO msn nnsnnne 


730 R$="H":IF MX8 THEN R$="CPC":6070 770 

160 FOR Jä=1 TO O4: V(J4)=T(JA)INEXT: 6070 790 

170 FOR J#=1 TO 6: Y(J4)=T(J4+6) 2 Y(JA+Bb)2T (JL): NEXT 
780 Y(PA)=T(Q4) 1 Y(QL)=T (PL) :MA=M4-6 

790 CA=MA:NA=Y (CH): FOR Jézi TO NX:C4=Cu+1 

800 IF C{=P1 THEN C#=! 

810 IF Ca=M4 THEN CZ=C{+1:607T0 800 

820 Y(CHI=Y(CA)+L:NEXT: (MA) =0:LA=CX 

830 IF LA<7 OR YILZ4))3 OR Y(L4)2 THEN 850 

840 YIPA)=Y(PA)+YIL4):Y(L4)=0:LE2L2-1:6070 830 

850 S4=0:FOR J4=7 TO Dé:S4=S4+V (JL): NEXT 

860 IF S%=0 THEN M£=-2:RETURN 

870 IF R$="H" THEN FOR JAz1 TO Qi: T(J#%)=Y(J4):NEXT: RETURN 
8890 FOR Jéz1 TO 6: T(J4)=Y (JA +6) TJ H+4)=Y (JL) LNEXT 
890 T(G4)=V(P4}:T (P4)=Y (0%) 2 RETURN 

800 : 


20 : 

930 FOR A4=1 TO 4:M4=A%+6:1F B(M£)=0 THEN U(4Z)=-F#:G0T0 1100 
940 FOR J4=i TO Ch: T(J4)=R(J4):NEXT: GOSUB 710 

990 IF M4<0 THEN U(AX)=-F4:G0T0 1100 

960 IF T(QX))23 THEN MA=AL+6: RETURN 

970 FOR Jé=1 TO Qi: H(d4)=T(JA)2NEXT: FOR KA=1 TO 6 

080 IF T{K4)=0 THEN V(K4)=F4:G0T0 1080 

990 FOR Jé=i TO GX:T(J4)=W(J4):NEXT:M£=K4:60SUB 710 

1000 IF MACO THEN VIK4}=F4:G0TO 1080 
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1016 #A=0:XB=0, 08: C=0:XD=0: FOR J4=7 TO D4 

1020 KB=XH+T(J£):IF T(J£)>0 THEN XA=XA+! 

1030 IF T(Jd42<3 THEN {CzfC+1 

1040 IF T(J2)>{D THEN XD=T(J%) 

1050 MEYT:YE=XB:FOR JA=1 TO 6: XE=XE+T(J4):NEXT 

1060 KA=XA/6:XD=1-XD/XB: XC=1-XC/b: XB=XB/XE 

1070 V(KA)=2A#(XA+AB)+2BX(XC+KD)+T ID) +BIPX)-B(04)-T(P4) 
1080 NEXT:U(AY)=F #4: FOR J4=1 TO 6:IF V(JX)<UIAZ) THEN U(A4)=V(J#) 
1090 NEXT 

1100 PRINT". "::NEXT:M4=0: YA=-FL:FOR JA! TO 6 

1110 IFIU(J4)>XA) THEN XA=U(JX):M4=d4+6 

{120 NEXT:RETURN 

1130 : 


1130 PEN ZiLOCATE 5,5: PRINT'CPC': PEN 3 
1160 FOR J%=0 TO SiLOCATE 4#J%+10,9:PRINT B(12-J%): 
[170 IF B(12-J4)=0 THEN PEN O:PRINT CHR$(8) +CHR$(8)+STRING# (2,143): :PEN 5 


1180 IF B(12-J%)99 THEN PEN L:PRINT CHR$18)+CHR$#(143)::PEN 3 

[190 NEXT:FEN SiLOCATE 5,1{:PRINT B(8%) 

{200 LOCATE f,19:F0R J%=0 TO 5 

1210 LOCATE 4+J%+10,13:PRINT B(JA+1}: 

1220 IF B(J%+1i=0 THEN PEN O!PRINT CHRS(BI+CHRS(B)+STRINGS {2,143}: PEN 3 
1230 IF B(J%+1}39 THEN PEN 1:FRINT CHR$(B)+CHRS (143); :PEN 5 

124) NEXT:PEN 3 2LOCATE 34,11:PRINT B(PY):PEN 2 

1250 LOCATE 34,17: PRINT"VOUS" 

1260 RETURN 


1290 ‘22222222 TRACE QU JEU =zs<==s222222 

1290 Cxs4:L%=7:G60SUB 1770 

1300 PRINT CHR$(SO)::PEN 2:FO0R [4=1 T0 S:PRINT TAB(IGISTRING#{11,143):NEX 
( 

1310 PRINT CHR$(3G)+CHRS (22) +CHR$ (1): :PEN L:FOR 12=1 70 3:PRINT TAB(I6)ST 
RING#(11,207):NEXT:LOCATE 17,2:PEN S:PRINT'A 4H À R L':PRINT CHR$(22)+CHR$ 
(0} 

1320 PEN 2:LOCATE 11,5:F0R J#20 TO S:PRINT TAB(48J%+10):12-JX::NEÏT 

1330 LOCATE 11,15:FO0R JA=0 TO 5:PRINT TAB(4#]4+10):J4+15:NEXT 

1340 INK [,3:INK 2,13:INK 3,25 

1330 RETURN 

1360 : 

1370 ‘2222zz PAG DE MOUVEMENT 2222222222 

1380 PEN S:LOCATE 10,19: PRINT'FAS DE MOUVEMENT LEGAL, " 
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1350 IF B(P2}=B(Q%) THEN PRINT: PRINT" PARTIE NULLE, ":60T0 570 
1400 IF B(Q%)>B(P4) THEN 380 ELSE 560 

1410 REM ====2ssesssess (UN =2zsssassessss 

1420 R$=UFPERS(INKEY#): IF R$<)"" THEN 1420 

1430 R$=UPPERS(INKEY#):IF R$="" THEN 1430 

1440 RETURN 

1450 : 

(480 ‘=zzzz2zsz PRESENTATION ====2222222 

1470 MODE 1:INK O,0:INK 1,32 INK 2,13: INK 3,24: BORDER 0 

1480 SYMBOL 251,40,00,R3C, L3C LC L3C, KO, 10 

1490 SYMBOL 252,k1F4&7F,RIF&FF RFF, RFF. RFF, &FF 

1500 SYMBOL 253,4FB,8FE,RFE RFF, RFF RFF RFFUFF 

1510 SYMBOL 254,8FF,RFF,RFF,KFF,8FFÈFE,&FE.&FE 

1320 SYMBOL 235,8FF,RFF,&FF RFF, RFF R7F,&7F BRIE 

1530 A$=CHRS (143) +STRINGS (12,32) +CHR$(143):PEN J:LOCATE 14,$:FOR [421 TO 

2:PRINT TAB(I4) AS::NET 

1540 MIDS(A$,6,4)=2STRINGS (4,143):PRINT TAB(14) A$ 

1590 MID$(A$,5,6)=STRINGS(B,1AD): PRINT TAB(14) 4$ 

1540 PRINT TAB(I14)STRINGS(14,143) 

1570 FOR [%=1 TO 6: PRINT TAB(I7)STRINGS (8,143): NEXT 

1580 FOR [%=1 T0 3:PRINT TAB(IB)STRING$(6,143):NEXT 

1590 PRINT TABI19ISTRINGS (4,143) 

1600 PRINT TAB(20)STRINGS$ (2,143) 

1610 A$=CHRS (2145 +CHR$ (143 +CHR$ (215): PRINT CHR$(22)+CHRS (13: :LOCATE 18,6 
PEN SPRINT A$+Af 

1620 AS=CHR$ (222) +CHR$ (207) +CHR$ (223) :LOCATE 1B.6:PEN Z:PRINT A$+A$ 

1630 PRINT TAB(18)STRINGS (6,143) 

1640 AS$=CHR£(213)+CHR$ (143) +CHR# (212) : PRINT TAR(18)A$+A$ 

1690 LOCATE 19,7:PEN O:PRINT CHR$(231):LOCATE 22,7:PRINT CHR$(231) 

1660 LOCATE 19,12:PEN 3:PRINT STRING$ (4,196) :LOCATE 19,{3:PRINT STRINS# (4 
194) 

1670 PRINT CHR$(22)+CHR$ (0): 

1680 PEN L:LOCATE 16,20:PRINT CHR$(252)+STRINGS(9,143)+CHR$ (233) TAB(18)5T 
RING# (11,143) TAB(L6)CHRS (255) +STRINGS (9,143) +CHR$ (254) 

1690 PEN S:LOCATE 17,21:PRINT CHR$(22)+CHR$ (1) "A M À R I'+CHR$(22)+CHR$ (0 
) 

1700 PEN Z2:LOCATE 2,24: PRINT"VOULEZ-VOUS LA REGLE DU JEU ? (O/N)" 

1710 GOSUR 1410 

1720 IF R$<)"0" THEN RETURN 

1730 Ch=4:L423:G60SUB 1770 

1740 INK 1,3:INK 2,13:INK 3,29 

1730 GOSUB 2020:RETURN 
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1770 ‘sais TRACE DU TABLIER ==22222223 

1780 CLS: INK 0,0: 1INK 1,0: INK 2,05 INK 3,0 

1790 PEN 1:LOCATE CA LH: PRINT CHR$(252)+5TRINGS (93, 143)+CHR$ (253) ;:FÛR IX 

={ TO Z:PRINT TAB(4)STRINGS (35,143): :NEXT: PRINT TAB(4)CHR# (255) +STRINGS(S 

3,143) +CHR$ (254) 

1800 PRINT CHR$ (22) +CHR$ (1) 

1810 PEN O:LOCATE C4,L£+i: PRINT CHR (NIACHRS (252)4STRINES (2, 143) +CHR$ (25 

3)1:FOR [4=f TD 6: PRINT CHRS(S)+CHRS(252}+ CHR$(143)+ CHR$ (253) 3: NEXT:PRI 

NT CHRS(9)+CHR$ (252) +STRINGS (2,1432+CHR$ 1253) 

1820 PRINT TAB(4)CHR$(9)+STRINGS(4,143);:FOR [421 TO 6:PRINT CHR$(9)+STRI 

NG$ (3,143) ::NEXT: PRINT CHRS(S)+STRINGS (4,143) 

1830 PRINT TAB(4)CHR$(9)+STRINGS(4,149);:FOR I4=1 TO 6:PRINT CHR$(9)+CHRS 
(259) +CHR$ (143) +CHRS (254); NEAT : PRINT CHRS(9)+GTRINGS (4,143) ;:PRINT TAB 

J4)STRINGS (4,143) 

1840 PRINT TAB(4)CHRS(11)+CHR$(9)+STRINGS (4,143) 

1850 LOCATE CA,LA+S: PRINT CHR$(9)+STRINGS (4,145)::FDR 14=1 TD 6: PRINT CHR 

$(9)+CHRS(252)+CHR$(143)+ CHR$(299) ;2NEXT: PRINT CHR$(G)+ STRINGS (4,143) 
1860 PRINT TAB(4)CHR#(9)+STRINGS (4,143); :FOR I421 TO 6:PRINT CHR$(9)+STRI 
NG$(3,143);:NEXT: PRINT CHRS(9)+STRINGS (4,143) 

1870 PRINT TAB(4) CHRS(9)+CHRS (259) +STRINBS (2,143) +CHR$(254):: FOR 14=1 TO 
bIPRINT CHR$(9)+CHRS (295) +CHR$ (143) +CHRS (294) 1: NEXT: PRINT CHR$(9)+CHR$ (2 

59) +STRING#(2,143}+CHR$ (254) 

1880 PRINT CHR$(22)+CHR$ (0) 

1890 “INK OO INK 1 ,32INK 2,13: INK 5,25 

1500 RETURN 


1920 ‘2=sz2z22zz 4 GRAINES / CASE ===222 

1930 PRINT CHR$(JO):PRINT CHR$(22)+CHR$ (1): 

1949 PEN 3:LY=8:FOR CX=10 TO 50 STEP 4:G60SUB 19B0:FDR 1%21 TO 150:NEÏT:NE 
{T 

1930 LA=4:FOR C4=30 TO 10 STEP -4:G60SUB 1980:FOR It= 1 TD 150:NEXT:NEXT 
1960 PRINT CHR#(22)+CHR#(0):PEN 2 

1570 RETURN 

19580 LOCATE C£,LA:PRINT CHR$ (136) :LOCATE C4,L#+2:PRINT CHR$(130):LOCATE C 
4+2,L4+2:PRINT CHR$(129)2LOCATE C4+2,L%: PRINT CHR$(132) : SOUND 7,90,2,12:F 
OR I#4=1 TO S0:NEXT: RETURN 

1990 : 

4000 ‘ssæzzzzsz APPUI TOUCHE =========== 

2010 LOCATE 33,25:PEN S:PRINT'APPUYEZ"::CALL &BBIB:LOCATE 33,25:PEN O:PRI 
NT STRING#(7,143):: PEN 2:RETURN 

2070 ‘=szzs2s REGLES DU JEU ==25=2222225 
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2030 PEN 2:LOCATE 1,16:PRINT'LE PLATEAU DE JEU COMPORTE 12 ALVEOLES" 
2040 BOSUB 2000 

2090 Nts1:FOR 14510 TO 50 STEP 4:LOCATE 19,12: PRINT N4:SQUND 7,200,5,13:F 
OR J=1 TO 1S0:NEXT:NNX+1:NEXT 

2060 FOR 11230 TO 10 STEP -4:LOCATE 17,2:PRINT NX:SOUND 7,200,5,13:FOR d= 
1 10 1503NEXT:NU=N%+1:NEXT 

2070 LOCATE 1,18:PRINT'REMPLIES AU DEPART DE 4 GRAINES CHACUN, ":PRINT 
2080 GOSUR 2000:60SUB 1920 

2090 LOCATE 1,20:PRINT'LES 6 ALVEULES DU BAS { NUMEROS 1 à 6 )":PRINT 
2100 PRINTCONSTITUENT VOTRE CAMP, CELLES DU HAUT":PRINT 

2110 PRINT'SONT CELLES DE VOTRE ADVERSAIRE. " 

2120 BOSUB 2000:MINDON #1,1,40,13,25: CLS! 

2130 LOCATE 1,14 

2140 PRINT'CHABUE JOUEUR À TOUR DE ROLE PREND LE":PRINT 

2150 PRINT'CONTENU D'UNE CASE DE SON CAMP ET SEME":PRINT 

2160 PRINT'TOUTES LES GRAÎNES QU'ELLE CONTIENT UNE":PRINT 

2170 PRINT'PAR UNE DANS CHAQUE CASE EN TOURNANT":PRINT 

2180 PRINT'DANS LE SENS INVERSE DES AIGUILLES":PRINT:PRINT"D'UNE MONTRE." 
2190 GOSUB 2000:CLS #1 

2200 LOCATE 1,16 :PRINT'EXEMPLE DE DISTRIBUTION: CASE N'4CHRS(1671+"4," 
2210 LOCATE 23,19:PEN 3:PRINT CHRS (240) 

2220 FOR 1#1 TO S00:NEXT 

2230 PEN ! 

2240 PRINT CHRS(22)4CHRS(L):LOCATE 22,8:PEN O:PRINT CHRS(136)4" "#CHRS(13 
2I:LOCATE 22, 10:PRINT CHRS(1301+" "4CHR$ (129) 

2250 FOR 1=1 TO BO0:NEXT 

2240 LOCATE 27,9:PEN SPRINT CHRS(251):S0UND 7,100,10,12 

2270 FOR 151 TO BO0:NEXT 

2280 LOCATE 31,9:PEN S:PRINT CHRS(2511:S0UND 7,100,10,12 

2290 FOR I=1 TO BOO&NEXT 

2300 LOCATE 31,5:PEN 3:PRINT CHR(251):SQUND 7,100,10,12 

2310 FOR I=1 TO BO0:NEXT 

2920 LOCATE 27,54PEN SPRINT CHRE(231):S0UND 7,100,10,12 

2330 PEN 2:LOCATE 1,20:PRINT'SI LA CASE CONTIENT PLUS DE 11 GRAINES":PRIN 
T | 

2340 PRINTON EFFECTUE UN SECOND TOUR EN SAUTANT":PRINT 

2350 PRINT"SA CASE DE DEPART." 

2360 GOSUB 2000:CL5 #1 

2370 LOCATE 1,14:PEN 3:PRINT"PRISE: “PEN 2 

2380 PRINT:PRINT"SI LA DERNIERE BRAINE DISTRIBUEE TOMBE" 

2390 PRINT:PRINT"DANS UNE CASE ADVERSE CONTENANT DEUA " 

2400 PRINT:PRINT®UNE OU DEUX BRAINES,LE JOUEUR PREND" 
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2449 FRINT:FRINT'TOUT LE CONTENH DE CETTE CASE (2 OÙ 5)" 

1429 G0SLB 2000:€LS #1 

2430 LOCATE 1,14:PRINT"'SI LA CASE PRECEDANT CETTE CAGE VIDEE* 

2445 PRINT: FRINT'CONTIENT 2 OÙ 3 GRAINES,CES GRAINES SONT" 

245ù PRINT'PRIGES ELLES AUSSI ET AINSI DE SUITE" 

Z46û PRINT:PRINT'EN REMONTANT JUSQU'A CE QU'ON ARRIVE SUR" 

2375 PRINT'UNE CASE NE CONTENANT NI 2 NI 3 GRAINES" 

3480 PRINT: PRINT"OL DANS SON PROPRE CAMP," 

2450 SOSUB 2000:CLS #1 

2500 LOCATE [,1b:PEN 3:PRINT'OON GE GRAINES:" 

2910 PRINT: FRINT:PEN 2:FRINT'S] L'ADVERSAIRE N'A PLUS DE GRAINES" 

25209 PRINTIPRINT'IL FAUT LUI EN DONNER OBLIGATOIREMENT," 

2530 FRINT:PRINT'SI L'EST IMPOSSIBLE LA PARTIE S'ARRETE, 

2540 GOSUB 2000:€LS #1 

2650 LOCATE 1,16:PEN 3:PRINT'GAIN DE LA PARTIE":FEN 2 

2Sé0 PRINT:PRINT: FRINT:PRINT'LE PREMIER À AVOIR 24 GRAINES À GAGNE. 

2573 GOSUB 2090:CLS #1 

2380 LOCATE 1,:6:PRINT®LE PROGRAMME PERMET LE RETOUR EN ARRIERE":PRINT"AV 

EC QU NON LA REPRISE C'UN COUF AVEC": PRINT: PRINT'LES TOUCHES "+CHR$ (2421 + 

“ET "4CHRS (243) 

2366 COSUR 2600: RETURN 

2h36 RÈM =2z22 RETOUR EN ARRIÈRE ==2222 

2ë10 IF COUFYSL THEN 400 

2420 LOCATE 1,21:PRINT D$ 

2630 COUFA=COUPX-1 

2840 GOSUB 2650 

2656 INTERX=AR(COUP%, 15) 

2660 GOTO 400 

2670 : 

2889 ‘------- TRANSFERTS "mu 

2690 FOR l4=1 TO QR:E(12)=4AR(COUPY 4): NEXT:G60SUB 1140: RETURN 

2700 COUPA=COUPYA +1: COUPMAX 4 =COUP#X: IF COUP22300 THEN IF BIG2)>B(PX) GOTO à 

80 ELSE IF HiP4)23B(0%) THEN GOTD 360 ELSE LOCÂTE 1,21:PEN 3:PRENT" 
MATCH NUL ,.,. *:G0T0 570 

2710 FOR J=1 TO Ou: AR(COUPY.[4)=B(I4):NEXT 

2720 RETURN 

2730 ‘ss2seesss gygnce ssssssssssssszses 

£746 IF COUPA=COUPMAY THEN 400 

2725 COUP/<COUP4+i 

2774 [NTER4=AR (COUPX, 15) 

ITEG GOSUR 2490 

2795 GOT0 400 


.— 
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CHAR D'ASSAUT 


Emmanuel ALLINGRY 


Vo: conduisez un char d'assaut en pays ennemi. Votre mission 
est de détruire les fantassins qui viennent à votre rencontre, mais 
il faudra en permanence tenter d'éviter les mines. En outre, votre car- 
burant est limité et, pour éviter de tomber en panne d'essence, vous 
devrez périodiquement vous ravitailler en attrapant des bidons dispo- 
sés sur votre parcours. Bien plus grave encore, votre moteur s'use: 
au fil des kilomètres parcourus et devient de plus en plus glouton. 


10 SYMBQL AFTER 42 

20 SYMBOLE 42,0,16,84,58,234,56,84,16 

30 SYMBDL 252,24,36,60,60,60,80,60,24 

40 SYMBOL 171,16,16,84,124,124,124,124,B4 


50 GOTO 370 

60 MODE 1 

710 INK 0,15:INK 1,0:BORDER (5 

80 PEN ! 

SG PRINT VOUS L 
1060 PRINT ‘ CONDUISEZ * 

110 PRINT à‘ UN CHAR D'ASSAUT" 
120 PRINT ‘ EN PAYS ENNEMI." 
130 PRINT" 

140 PRINT  ‘ VOTRE MISSION 
150 PRINT EST D'ECRASER" 

160 PRINT  ‘ LES FANTASSINS ENNEMIS." 
170 PRINT"" 

180 PRINT E MAIS ATTENTION " 
190 PRINT ‘ VOUS DEVEZ EVITER" 
200 PRINT d LES MINES." 


210 PRINT AA 
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220 PRINT ! EN OUTRE" 
230 PRINT : VOTRE CARBURANT" 


240 PRINT ° EST LIMITE." 

250 PRINT"" 

260 PRINT " VOUS DEVEZ DONC 
270 PRINT " VOUS RAVITAILLER" 
280 PRINT EN ATTRAPANT" 

290 PRINT " DES BIDONS" 

300 PRINT" SUR VOTRE PARCOURS, 
310 PRINT"" 


320 PRINT'Pour continuer ,appuyez sur C" 
330 IF INKEY(b2)=0 THEN 350 

340 GOTO 330 

330 HODE 1 

360 PRINT" AU COURS" 

370 PRINT" DES KILOMETRES" 

380 PRINT" VOTRE MOTEUR S'USE 

390 PRINT" ET CONSOMME 

400 PRINT" D'AVANTAGE. " 

410 PRINT"":PRINT"": PRINT" 

420 PRINT'ATTEINDRE CERTAINS SCORES AJOUTE 


430 PRINT" ": PRINT": PRINT" ":PRINT'":PRINT"" 

440 PRINT*Pour continuer ,appuvez sur C" 

450 IF INKEY(82)=0 THEN MODE 1:60T0 470 

460 GOTO 450 

470 LOCATE 10,2: PRINT CHR$(171) "vous" 

480 LOCATE 10,4 : PRINT CHR$(248) ,"fantassin" 
490 LOCATE 19,6: PRINT CHR$(42) , "mine" 

500 LOCATE 10,8: PRINT CHR$(252) "bidon" 


510 PEN 3: LOCATE 10,10 : PRINT CHR$(248) ,"lieutenant':PEN | 
520 LOCATE 10,15:PRINT CHR$(242) :LOCATE 13,15:PRINT" gauche" 
530 LOCATE 10,17:PRINT CHR$ (243) :LOCATE 13,17: PRINT'droite" 
540 LOCATE 1,20:PRINT"Pour continuer ,appuyez sur C" 


330 IF INKEY(62)=0 THEN 570 

J60 GOTO 550 

970 INK 0,15:INK 1,0,26:BORDER 15:MODE 1 
380 PEN ! 

990 LOCATE 12 ,14: PRINT"CHARS D'ASSAUT" 
600 PEN 3 

610 PLOT 173,170:DRAH 399,170 
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DU CARBURANT 


620 LOCATE 20,25:PRINT'Pour jouer ,appuyez sur d' 

630 LOCATE 20,20:PRINT"Pour des precisions,appuyez sur P" 

b40 IF INKEY(45)=0 THEN 670 

650 IF INKEY(27)=0 THEN 60 

b60 GOTO 640 

670 MODE OsINK 1,0:INK 0,15:BORDER 19:INK 4,1 

680 1=10:k=((20-1)/2)+0,5 

690 car=200 

700 a=kin=l+k 

710 V=RND(L)#1+k:m=RND (1) #1 +kix=RND(1)#l#ki VERND(1)#1+k1z=RND (I) #l+k:bid= 

RND(L)#1+kinie=RND(1)#1+k: ai f=RND(1) #1 +k 

720 PEN 0 

130 f=1/2+k-0,9: LOCATE f,20:PRINT CHR$(171) 

740 PLOT 90,25,4:DRA4 130,375,4:PLOT 599,25,4:DRA4 915,375, 4 

750 a=B:b={fic=14:d={7:e=20:bi=fé:mi={3:mi2=101h=1.S:g=01:sc=<0 

160 PEN 4 

770 LOCATE 11,2:PRINT "carburant" 

780 REK 

790 PEN 3: LOCATE v,a:PRINT CHR$ (248) 

800 PEN 4 

810 LOCATE v,a-[:PRINT CHR$(32) 

820 azatl 

830 IF a=2i THEN a=8:LOCATE v,20:PRINT CHR$#(32):IF f=ROUND{(v) THEN SOUND 
1,200,20:v=RND(1)#l+k:sc=sc+50:LOCATE 2,2:PRINT'score",5c ELSE v=RND(1)# 

1+k 

840 GOSUB 1340 

850 PEN 5 

B6Q LOCATE MIf,mi2:PRINT CHR$1(42) 

870 PEN 4 

880 LOCATE MIf,ni2-[:PRINT CHR$(32) 

B90 mi2=ai2+{ 

900 IF mi2=21 THEN ai2=8:LOCATE MIF,20:PRINT CHR$(32):IF #=ROUND(MIF) THE 

N SOUND 1,1200,20 :60T0 1390s:aif=RND(1)#1+k ELSE mif=RND(1)#1+k 

910 PEN 7 | 

920 LOCATE n,b:PRINT CHR$(248) 

930 PEN 4 

940 LOCATE w,b-1:PRINT CHR$(32) 

950 b=b+{ 

960 IF b=21 THEN b=B:LOCATE w,20:PRINT CHR$(32):IF #=ROUND(W) THEN SOUND 
1,200,20 sn=RND(1)#1+k:5c=6c+15:LOCATE 2,2:PRINT'score",5c ELSE m=RND(1) 

#]+k 

970 PEN 5 
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680 LOCATE MIe,mi:PRINT CHR$(42) 

990 PEN 4 

1000 LOCATE Mie,mi-i:PRINT CHR$(32) 

1910 mi=mit! 

1020 IF mi=21 THEN ni=8 :LOCATE Me, 20:PRINT CHR$(32):IF #=ROUND(MIe) THE 

N mie=RND(1)#1+k : SOUND 1,1200,20 :G60T0 1390:ELSE mie=RND(1)x1+k 

1930 PEN 7 

1040 LOCATE x,c:PRINT CHR#1248) 

1050 PEN 4 

1660 LOCATE x,c-1:PRINT CHR$132) 

1670 SOSUR 1340 

1980 c=c+i 

10S9 IF c=21 THEN c=B:LOCATE x,20:PRINT CHR#(32):1F ROUND(x)=f THEN SOUND 
1,200, 20:x=RND(1)#)+k:52=s5c+15:LOCATE 2,2:PRINT'score",sc ELSE K=RND(1) 

#1 +k 

1190 PEN 7 

1:10 LOCATE v,d:PRINT CHR$(248) 

1:26 PEN 4 

(130 LOCATE y,d-1:PRINT CHR$(32) 

1146 d=d+i 

1:50 IF dz21 THEN d=g:LOCATE v,20:PRINT CHR$:32):IF ROUNDIvI=f THEN SQUND 

1.200,20: veRND (1) #l+k:sc=sc+1S:LOCATE 2,2: FRINT'score",sc ELSE v=RND(H) 

*]+k 

iib0 PEN 7 

1170 LOCATE z,e:PRINT CHR$(248) 

1180 PEN 4 

[190 LOCATE z,e-1:PRINT CHR$(32) 

1200 e=et] 

1210 IF e=21 THEN e=B:LOCATE 2,20:PRINT CHR$(32}:IF ROUND{2)=f THEN SOUND 
1,200,20:2=RND(1)#1+k ssczsc+{StLOCATE 2,2:PRINT'score",5c ELGE z=RND(1) 

#1+k 

1220 GOSUB 1340 

1230 PEN 10 

1246 LOCATE bid,bi:PRINT CHR$ 1252) 

1290 PEN 4 

1240 LOCATE bid,bi-1:PRINI CHR$(32) 

1270 bi=bi+i 

1280 IF bi=2{ THEN bi=8:LOCATE bid,20:PRINT CHR$(32):IF ROUND(bid)=# THEN 
SOUND 1,500,20:bid=RND(1)+1+k scar=car+35:LOCATE 10,3:PRINT INT(car) ELS 

E bid=RND(1)+1+k 

1290 g=g+1:[F q/10=INT(g/10) THEN h=h+0,1 

1300 car=car-htIF car<0 THEN 1460 ELSE LOCATE 10,3:PRINT INTicar) 
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1310 IF ec>1000 AND 11=0 THEN li=iicar =car +500 

1320 IF sc)2500 AND 12=0 THEN 12={:car=car+1000 

1339 60T0 780 

1340 IF INKEY(8)=0 THEN f=f-111F fCm-1 THEN 1530 

1350 LOCATE f,20:PRINT CHR$(171):LOCATE #+1,20:PRINT CHR$ (32) 
1360 IF INKEV(1)=0 THEN #=f+1:1F fon+i THEN 1530 

1370 LOCATE f,20:FRINT CHR$(171):LOCATE $-1,20:PRINT CHR$ (32) 
1380 RETURN 

1390 MODE 1: PEN S:LOCATE 15,20: PRINT'PERQU" 

1400 IF scsci THEN scissc 

1410 PRINT'":PRINT'MEILLEUR SCORE" ,eci 

1420 PEN ! 

1430 LOCATE 1,25:PRINT"VOUS AVEZ RENCONTRE UNE MINE" 

1440 LOCATE Î,L:PRINT'score",sc 

1450 FOR g=0 TO 5000:NEXT:G0T0 570 

1460 MODE 1: PEN 3:LOCATE 15,20: PRINT"PERDU" 

1470 IF scheci THEN sclscc 

1480 FRINT'":PRINT'MEILLEUR SCORE" ,sci 

1450 PEN | 

1500 LOCATE 1.t:PRINT'ecore" sc 

1510 LOCATE 1,25: PRINT" VOUS ETES TOME EN PANNE DE CARBURANT" 
1520 FOR a=0 T0 SO000:NEXT:GOTO 570 

1530 MODE 1: PEN S:LOCATE 15,20:PRINT'PERDU”" 

1549 IF sceci THEN eclscc 

1550 PRINT" ":PRINT'MEILLEUR SCORE",scl 

1560 PEN | 

1570 LOCATE Î,24:PRINT'VOUS ETES SORTI DE VOTRE ROUTE ET VOUS VOUS ETES 
ENLISE" 

1580 LOCATE Î,1:PRINT'ecore",sc 

1590 FOR g=0 TO SOGG:NEXT:60TO à70 
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En 


CONSOMMATION 
DE CARBURANT 


Michel ARCHAMBAULT 


P° calculer une consommation en litres aux 100 km, une simple 
calculatrice ou dix lignes de Basic sont suffisants. Alors, pourquoi 
un programme aussi long ? C'est le super luxe ! 

La saisie est facile car elle supprime le côté fastidieux et les risques 
d'étourderies de la chose ; enfin, le grand PLUS est l'enregistrement 
automatique, sur cassette ou disquette, des données. 


Ceci permet d’avoir à l'écran l’évolution de la consommation au cours 
des mois et des années {très instructif !}. C'est donc un logiciel de comp- 
tabilité automatique très spéciale qui permet de ‘‘surveiller’’ plusieurs 
véhicules. 

Il a été conçu pour qu'il soit adaptable à la fois sur cassette ou dis- 
quette sans la moindre modification. 


PETIT DESCRIPTIF 


Chaque fois que vous prenez du carburant, vous notez sur un carnet 
de bord les litres, le kilométrage au compteur, la date et la lettre P s'il 
s'agissait d’un plein. 

À des intervalles quelconques, par exemple tous les mois, vous entrez 
certaines de ces données au clavier de votre AMSTRAD, C'est très 
rapide. L'écran vous affiche alors les éléments suivants : 

— Entre chaque plein, la consommation en litres, en litres aux 100 km 
et la distance en kilomètres. 

— La même chose mais cumuls et moyennes depuis le début de la sai- 
sie en cours. 

— Tableau final : résultats de la saisie + ceux de la saisie précédente 
+ moyennes et cumuls depuis la date des débuts des relevés. 

Ces données sont alors enregistrées sur un fichier portant le nom du 
véhicule en question. 
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A la saisie suivante {un ou deux mois plus tard), on entre seulement 
le nom de la voiture ; le programme charge alors le fichier correspon- 
dant et vous invite à la suite de la saisie, là où vous l'aviez arrêtée. 
Pas d'erreurs possibles. 

De nombreuses lignes BASIC sont consacrées à la clarté des tableaux 
et à guetter les étourderies d'un opérateur distrait. D'accord, c'est plus 
long à taper, mais après, on est tranquille. 

C'est un logiciel utilitaire, pas un programme gadget. Il faut choisir. 


LE MODE D'EMPLOI 


Après un titre quelque peu évocateur, on doit entrer le nom de la voi- 
ture : huit caractères maxi, sans espace ni signe de ponctuation et 
commençant par une lettre. Si vous avez une Peugeot 205, n'entrez 
pas ‘205, mais plutôt ‘’P205"”, Apparaît alors le menu principal, car- 
refour du programme : chargement (lecture) du fichier, saisie, sauve- 
garde et ‘‘première fois’", autrement dit, l'ouverture d'un fichier voi- 
ture. On y demande le kilométrage et la date du premier plein ; les litres 
versés, on s’en moque. Cette opération enchaîne sur la saisie. 

Les fois suivantes, on démarre directement sur l'option C (chargement 
du fichier). C'est rapide puisqu'il ne contient que neuf valeurs. L'écran 
vous affiche alors la date et le kilométrage du dernier plein enregistré, 
afin de vous situer dans votre carnet. Puis vous êtes invité à entrer la 
date et le kilométrage de la ligne suivante du carnet, même s'il ne s'agit 
pas d’un plein. Puis commence la saisie. 


LE TABLEAU DE SAISIE 


Il est constitué de six WINDOWS : un pour les entrées, deux pour les 
résultats, et trois pour les légendes de colonnes, afin de les protéger 
du scrolling. 

La fenêtre des entrées est celle du haut ; trois colonnes où le curseur 
ira se positionner automatiquement. 

a) Entrée des litres. Enter. 

b) Le curseur va sur la colonne ‘‘Plein”’. Si ce n'est pas le cas, faites 
Enter, et le curseur revient sur l'entrée des litres. Si c’est un plein, tapez 
""P"",. Le curseur va alors dans la colonne ‘‘KM'”' où vous entrez le Kilo- 
métrage à ce plein ; et Enter. 

c) Aussitôt les résultats apparaissent dans les fenêtres inférieures : à 
gauche, concernant cette ‘’étape’” de plein à plein. À droite concer- 
nant cumuls et consommation moyenne depuis le début de la saisie. 
d) Le curseur est revenu sur l'entrée litres, on poursuit de même. 
e) Vous venez de constater une erreur sur les litres entrés, vous avez 
déjà fait Enter, et le curseur est dans la colonne ‘‘Plein'’ : tapez ‘‘E” 
et Enter ; la dernière entrée de litres est oubliée. 
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f) Fin de saisie. Le curseur attend une entrée de litres ; tapez ’F'"et 
Enter. Apparaît alors le. 


TABLEAU DES BILANS 


En haut de l'écran, le bilan de cette saisie (c'est donc la dernière ligne 
de la fenêtre de droite de l’écran de saisie). Au milieu, le bilan de la 
saisie précédente (avec ses dates). En bas, le bilan global calculé à partir 
de la toute première saisie, donc pouvant rassembler plusieurs années. 


NOTE : Lors de cette première saisie (option ‘première fois”'}, il est 
normal que la ‘’saisie précédente’ n’apparaisse pas... 

Ceci vu, on presse une touche quelconque et le nouveau fichier est enre- 
gistré. Retour au menu, Fin. 


L'ENREGISTREMENT DES FICHIERS 


Un nouveau fichier écrase l'ancien. Si vous avez un lecteur de disquet- 
tes, pas de problèmes ; sur une même face, il y a le programme CON- 
SOM et autant de noms de fichiers qu'il y a de véhicules à ‘‘surveiller’”. 


Avec magnétophone, une cassette pour le programme et autant de cas- 
settes fichiers qu'il y a de véhicules (en débuts de cassettes). Toujours 
rebobiner la cassette fichier après lecture. 


LE PROGRAMME 


l'est en ‘’structuré’’, les modules étant appelés à partir du menu (ligne 
1000). En lignes 65000, nous avons rassemblé la liste alphabétique 
des variables (on est ainsi sûr de ne pas l'égarer... }). 

Les messages à l'écran sont avec minuscules accentuées, ce qui expli- 
que des signes bizarres dans le listing ; les accollades sont obtenues 
par SHIFT + crochets, elles donneront ‘’é'" et ‘’è”" ; le a commercial 
se transformera en ‘‘à”’. 

CALL &BBO6 bloque le programme jusqu'à ce que l’on presse une tou- 
che. 

Le nom de la voiture, VOIT$, peut être entré indifféremment en majus- 
cules où en minuscules (ligne 760). À ce propos, nous avons débus- 
qué un bug de l'AMSTRAD : 

Il y avait une ligne 770 VOIT$ = UPPERS(VOITS) qui nous a joué la 
farce suivante : à la lecture du fichier, nous obtenions le message 
‘fichier inconnu’ (sur lecteur de disquettes}, et pour cause ! Le nom 
‘ ‘’ASCONA'"' était devenu ‘‘OOOOAN”" sur l'enregistrement... En sup- 
primant cet UPPER$, tout est devenu normal. C'est inexpliqué, mais 
il faudra s'en souvenir. 
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10 “CONSOMMATION DE CARBURANT 

20 ‘Michel ARCHAMBAULT--1985 / AMSTRAD 

40 DEFINT [.J MN 

50 GOSUB 51000: ‘AZERTY 

60 INK O,1:INK 1,24 

70 PAFER 2:PEN 3:RORDER 15 

160 ‘TITRE 

110 MODE O:CLS 

120 LOCATE 5,4:PRINT "CONSO M" 

130 FOR I1=0 T0 200 STEP 2:PLOT 0,1,9 

140 DRAMR 640,0: NEXT:PEN Ô 

150 FOR I=1 TO 20:LOCATE [,7:PRINT "$": FOR J=1 TO 200: NEËXT:NEÏT 
160 FOR 1=1 TO IO0O00:NEXT 

179 FOR 2=:200 TO 15 STEP -0,5:PLOT 0,2,2 

186 DRAMR 640,0:NEXT:LOCATE 2,23: PRINT "M, Archambault-1965" 
190 FOR 1=1 TO 2000:NEÏT 

760 ‘VOITURE 

710 MODE L:CLS:PEN 3 

72) LOCATE 12,5:PRINT "NOM DE LA VOITURE: ":PEN 0 

730 LOCATE 7,7:PRINT "isans espace ni ponctuation)" 

740 LOCATE 8,S9:PRINT "(commencez oar une lettrei" 

790 LOCATE 17,12:PRINT STRING#(8,","):LOCATE 17,12: INPUT "",VOITS 
60 IF VAL(VOITS))0 OR LEN(VOIT#)>8 THEN PRINT CHR#(73:8070 750 
060 ‘ MENU 

1010 PEN S:PAPER 2:CLS:FPF=0 

1420 LOCATE 17,3:PRINT "M E N U":PEN 0 

1630 LOCATE 12,6:PRINT "© : CHARGEMENT FICHIER" 

1040 LOCATE 12,B:PRINT "E : ENTREE DES LITRES." 

1090 LOCATE 12,10:PRINT °S : SAUVEGARDE FICHIER," 

1060 LOCATE 12,12:PRINT “P : PREMIERE FOIS." 

1070 LOCATE 12,14:PRINT "F : FIN." 

1080 TEX$="CESPF':PEN 3:GOSUB S0000:PEN 0 

1950 ON K GOSUB 2000,5000,10000,15000,20000 

1100 GOT 1000 

2006 ‘CHARGEMENT DU FICHIER 

2010 PAPER O:PEN 3:BORDER 2:CLS 

2020 LOCATE £,6:PRINT "CHARGEMENT DU CICHIER VOITURE, ":PEN 
2030 LOCATE 19,12:PRINT "OK ?":TEX$="ON":60SUB 50000:LOCATE 1,24: PRINT CH 
R$(18) 

2040 IF K=2 THEN 2900 

2090 LOCATE 4,15:PRINT "Priparez la Cassette ou Disquette." 
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2060 LOCATE 9,17:PRINT "puis pressez une Touche... ":CALL £&EBÜ6 
2100 OPENIN VOITS 

2110 INPUT #9,DATO$,DATOS,DATFS,KO.KD,DSP,KF ,LS,LTOT 

2120 CLOSEIN 

2200 CLS 

2210 LOCATE 12,4:PEN S:PRINT "VOITURE "is VOITSs" :":PEN 2 

2220 LOCATE {2,7:PRINT "Prichdente Saisie:" 

2230 LOCATE 10,10:PRINT "du ":DATD$:" au ":DATF$" 

2240 LOCATE 10,12:PRINT "de":KDi "ka €":KF: "km" 

2250 LOCATE 19,16:PEN 1:PRINT 1 2" TEX$="ON":60SUB 50000 
2280 IF K=2 THEN 2900 

2900 RETURN 

5000 ‘ENTREE DES DONNEES 

5010 PEN S:CLS:1IF FPF=1 THEN 5200 

3090 LOCATE 12,3:PRINT "ENTREE DES DONNEES: ":PEN 0 

J060 LOCATE 4,6:PRINT “Dernier Relevt:":DATFS:KF; "km" 

5070 LOCATE 15,8:PRINT "Date Dtpart:":60SUB 12000 

5060 LOCATE 11,17: INPUT "ke dtpart: ",KD$:KD=VALIKD#): IF KDCKF THEN 5080 
3090 LOCATE 10,20:PRINT DAT$;" &'sKDs"km : OK ?":TEX$="ON":60SUB 50000 
3100 IF K=2 THEN 5000 

S110 DATIS=DATS: KMP=KF 

5200 ‘TABLEAU DE SAISIE 

3210 WINDOH #1,1,40,1,3:PAPER #1,1:PEN #1,0:CLS #1 

3220 PRINT #1:PRINT #1,TAB(4); "Litres: “:TAB(17) : PLEIN": TAB(28) : "COMPTEUR 
9230 PRINT #1,TAB(4);"(FIN=F) "3 TAB(18);"(P)":TAB(30)1 "(km)" 
9240 HINDOH #2,1,40,4,6:PAPER #2,1:PEN #2,0:CLS #2 

3290 WINDOH #3,1,19,7,11:PAPER #3,2:PEN #3,0:CLS #3S:PRINT #3 
5260 PRINT #3,T4B(3):"Plein a Pleins": PRINT #3 

3270 PRINT #3,TAB(3):"L':TAB(10): "km": TAB(15):"L/100" 

5280 NINDOH #4,20,40,7,11:PAPER HA ,O:PEN #4,3:CLS H4: PRINT #4 
3290 PRINT #4,TAB(5): "Bilan cunul{r":PRINT #4 

3300 PRINT #4,TAB(4):"L':TAB(10); "km": TAB({4):"L/100" 

3810 HINDOH #5,1,19,11,23:PAPER #5,2:PEN 45,0:CLS #5 

3320 HINDOH #6,20,40,11,25:PAPER #b,0:PEN #6,3:CLS #6 

3330 BORDER 15 

6000 ‘SAISIE 

6005 N=1:M={:LT=<0: TOLT=0 

6010 LOCATE #2,6,N: INPUT #2,"",L$:1F UPPERS(L$)="F" THEN 7000 
BG30 LEVALIL#):IF Le0 THEN PRINT CHR$(7):: 6070 8010 

6040 LTELT+L 

6030 LOCATE #2,19,2: INPUT #2,"",P$:IF P$="" (THEN NEN+{:G60T0 46010 
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6055 IF UPPER$(P$)="E" THEN LT=LT-LiNSN-1:6070 6010 

BÜ6Ô IF UPPER$IP$)<)"P" THEN 6050 

1070 LOCATE #2,29,2: INPUT #2,"",KH$:KM=VAL (KMS) 

b0BO IF KMÇ=KMP THEN PRINT CHR$(7)::G0T0 6070 

b100 DKM=KH-KMP:KMP=KM: CONP=100#LT/DKM 

8110 TOLTSTOLT+LT: TKM=TKM+DKM: CONG=100#TOLT/TKH 

6150 LOCATE #5,2,M:PRINT #5, USING"##,#":LT 

160 LOCATE #5,8,M:PRINT 45, USING"#H#4#": DKM 

6170 LOCATE #5,19,M2:PRINT #5, USING"#4#, 8“: CONP 

6180 LOCATE #6,2,M:PRINT #6 ,USING"###.#":TOLT 

6190 LOCATE #6,9,M:PRINT 46 ,USING"####":TKM 

4200 LOCATE #6,17,M:PRINT #6 ,USING"#E, #":CONG 

6210 M=M+iiN=N+{:LT=0:60TD 86010 

7060 ‘TABLEAU FINAL 

7010 PAPER Q:CLS 

7020 LOCATE 8,6:PEN 1:PRINT "Date de ce dernier Plein :":PEN 2:60SUB 1200 
0 

1030 CLS:BORDER 12:LOCATE 2,3:PRINT "A ce Relevt du ":DATI$:" au ":DATS 
7040 LOCATE 1,5:PRINT TKMs"km avec": ROUNDITOLT, 1): "L, soit": ROUND (CONG, 1}: 
"L/100 ke" 

7050 PRINT STRING$(40," "):IF FPF=1 THEN 7090 

7060 PEN 2:LOCATE 1,8:PRINT "Relevt pricdent,du ":DATD$:" au ":DATFS$ 
7070 LOCATE 1,10:PRINT DSPi"ka avec": ROUND(LS,1);"L,soit":ROUND(100#LS/DS 
P,1)5"L/100 km" 

7080 PRINT STRING#(40,"_") 

1090 LS=TOLT:LTOT=LTOT+TOLT: DATD$=DATI$: DATF$=DATS:KF=KM: DSP=TKM 

7100 PEN S:LOCATE 3,14:PRINT "BILAN GENERAL du ":DATO$:" au ":DATFS 

7110 LOCATE 1,16:PRINT KF-K01"kn avec"; ROUNDILTOT,1}3"L, soit": ROUND(100#L 
TOT/(KF-K0),1):"L/100 km* 

7120 PEN f:LOCATE 8,20:PRINT "SAUVEGARDE DE CES VALEURS:" 

7130 LOCATE 3,22:PRINT “Priparez la Cassette ou Disquette," 

7140 LOCATE 8,24:PRINT "puis pressez une Touche..." 

71150 CALL &BB06 

7160 GOSUB 10000 

1170 RETURN 

10000 ‘ ENREGISTREMENT OU FICHIER 

10010 OPENOUT VOITS 

10020 HRITE #9,DATOS$,DATDSDATFS,KO0.KD,DSP,KF.LS,LTOT 

10030 CLOSEOUT 

10900 RETURN 

12000 ‘ENTREE DATE 

12010 LOCATE 17,10:INPUT "jour: ",d#:J=VAL(J#):IF Ji OR J)31 THEN 12010 
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12020 LOCATE 17,12: INPUT 'aois: "M$: M=VALIM#I:IF M1 DR M}12 THEN 12020 
12030 LOCATE 16,14: [INPUT "anntes "ANS: ANS=RIGHTS (ANS, 2): IF VAL(ANSI<8DÙ T 
HEN 12050 

12049 DATS=JS+"/ "MST "4+ANS 

12900 RETURN 

15000 ‘PREMIERE FOIS 

13010 BORDER 2:PAPER L:PEN O:CLS 

15020 LOCATE 2,4:PRINT “Vous ouvrez un NOUVEAU fichier voiture." 
15036 LOCATE 18,6: PRINT “OK ?":TEX$="ON":GOSUB 50000:1F K=2 THEN 15900 
19035 CLS:LOCATE 9,2:PRINT"Au tout premier Plein!" 

15040 LOCATE 8,4: [INPUT'Kilom{trage Départ: ",.K0$ 

15050 KO=VAL(KO$): IF KO=Ù THEN 15040 

150860 LOCATE 16,7:PRINT "en Date du:":G60SUB 12006 

15065 LOCATE 8,1B:PRINT "N'ENTREZ PAS CES LITRES !":FOR [=t TO 40O00:NEXT 
15070 DATO$=DATS: DATOS=DATÜS: DATFS=DATO#: DATIS=DATOS 

15090 KF=K0:LS=0:LTOT=0:KMP=K0: KD=KO 

13069 FPF2] 

15100 PAPER 0:GOSUB 5000 

13900 RETURN 

20000 FINAL 

20016 PAFER O:FEN L:ELS 

2602% LOCATE 10,12:PRINT "VOUS POUVEZ ETEINDRE* 

20030 LOCATE 11,14:PRINT “ou relancer par RUN, ":PRINT:FRINT 
20150 END 

45999 END 

50000 ‘REPONSE À UN MENU 

50010 LT=LEN(TEXS):R$="" 

20020 LOCATE 15-LT,24:PRINT 'Riponse (": 

50030 FOR I=1 TO LT-1 

35040 PRINT MIDS(TEXS,1,1)5","3:NEXT 

30080 PRINT RIGHT$(TEX$,1):"}":CHR$ (154): CHR# (243); CHR# (207) 
50060 TEXS$=UPPERS(TEXS$) 

36070 WHILE A$="":R$=INKEYS#: HEND 

30080 RS=UPPERS (RS) :K=INSTRITENS,RS) 

36060 IF K=Q THEN R$="":PRINT CHR$(7)::G60T0 50070 

50160 RETURN 

51000 ‘ AZERTY ACCENTUE 

31010 SYMBOL AFTER & 

s1020 SYMBOL 464,66,48,120,12,124,204,118,0 

31030 SYMBOL 91,0,56,108,56.,0,0,0.0 

31040 SYMBOL 92,0,0,60,102,56,102,60,24 

51090 SYMBOL 93.60,96.60,102,60,6.60.0 
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51060 SYMBOL 
51080 SYMAQL 
51109 RETURN 
83000 ‘------ 
65061 CONS : 
ésQ02 CONP : 
65063 DAT$ : 
85004 DATO$ : 
65005 DATIS : 
65006 DATD$ : 
b5007 DATFS# : 
65008 DKM 
E500S DSP 
46010 FPF 
CRISE 

85012 K 

B5O1T KO : 
ésulg KD : 
65018 KF 
550185 Ki : 
45017 KfiP 
85018 L ! 
05019 LS : 
65029 LT : 
65021 LTOT : 
65022 MIN : 
63027 TEK$ : 
85024 TKM : 
65023 TOTL :! 
8928 VOITS : 
63027 ! 
B6QZB “e. 


-. 


-. _ 


123,12,24,60,102,126,96,60 0 
125,46,24.60,102,126,96,60,0 


LEGENDE DES VARIABLES---- 
CONSOMMATION GLORALE 
CONSOM, DE PLEIN À PLEIN 
DATE AU CLAVIER 
DATE OUVERTURE FICHIER 
GATE DEPART EK COURS 
DATE DEPART PRECEDENT 
DATE FIN DE SAISIE 


: DISTANCE ENTRE DEUX PLEINS 


DISTANCE SAISIE PRECEDENTE 
FLAG PREMIERE FOIS 

UNITE DE COMPTAGE 

INSICE DE MENU 

KM À L'OUVERTURE Dÿ FICHIER 
KM DEPART SAISIE 


: KM FIN DE SAISIE 


KM AU PLEIN 


: KM AU FLEIN PRECEDENT 


LITRES ENTRES 

LITRES DE LA SAISIE 
LITRES ENTRE DEUX PLEINS 
LITRES TOTAUX 

CANPTAGES DE LIGNES 
SISLES DU MENU 

DISTANCE TOTALE EN SAISIE 
LITRES SAISIE PRECEDENTE 
NON DE LA VOITURE 

UNITE DE COMPTAGE 
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En 


LE LECTEUR DE DISQUETTES 
POURQUOI ? 


Michel ARCHAMBAULT 


eaucoup d'entre vous ‘‘lorgnent’’ depuis quelque temps vers le 

lecteur de disquettes (on dit aussi ‘’DRIVE’") AMSTRAD DDI-1, 
et ce en se disant ‘’qu'aurais-je de plus ?"*. En fait, une foule de ques- 
tions auxquelles nous allons répondre en essayant d'être clair, donc 
en évitant d'entrer dans des détails d'utilisation (d'autant plus qu'ils 
sont dans la notice du DDI-1... ). 


QU'Y A-T-IL DANS LA BOÎTE ? 


Tout d’abord une excellente notice en français de six millimètres 
d'épaisseur, illustrée et facile à comprendre. 

Un boîtier plat (l'interface) qui s'enfiche à l'arrière du CPC 464, et duquel 
sort un large câble plat. Le lecteur proprement dit, de la taille d'une 
cartouche de cigarettes, assez lourd, équipé d’un cordon secteur et 
avec, à l'arrière, un interrupteur marche-arrêt et un connecteur rece- 
vant le large câble plat. Une disquette enregistrée, numérotée, super 
précieuse (difficilement remplaçable), qui possède, sur une face, tou- 
tes les routines d'exploitation et sur l'autre, le langage LOGO (LOGO ? 
BOF...). 

Il n'a a pas de disquette vierge. Pensez donc à ne pas revenir sans. 
Au moins deux : une qui sera un duplicata de la disquette précieuse 
(à ranger en lieu sûr) et une autre pour sauver vos programmes sur Cas- 
settes. 


C'EST QUOI UNE DISQUETTE ? 
C'est un boîtier plat et rigide mesurant 100 x 80 x 5 mm. C'est le ‘’stan- 
dard'’ trois pouces (à ne pas confondre avec le trois pouces et derni...). 


À l'intérieur, un disque mince recouvert recto-verso d'un vernis magné- 
tique ; le même que sur les bandes magnétiques. 


126 


La suite rappelle un peu les avantages du disque 33 tours sur la cas- 
sette enregistrée : quand vous voulez écouter telle chanson, vous lisez 
sur l’étiquette que c'est l'air numéro cinq, et directement vous posez 
le bras de lecture sur cette plage. C'est l'ACCES DIRECT. Avec la ver- 
sion cassette, il vous faut d'abord passer (ou bobiner) les quatre pré- 
cédents ! C'est l'ACCES SEQUENTIEL. 

Revenons à notre disquette. Sur la face À, il y a, supposons, 28 pro- 
grammes ; vous voulez utiliser le programme ‘‘'BIDULE'". Facile ! Vous 
tapez au clavier RUN "’BIDULE”'. Que se passe-t-il alors ? 

Le bras de lecture, supportant une tête magnétique, va d’abord aller 
lire la piste ‘‘catalogue’”; c'est l'équivalent de l'étiquette centrale d'un 
33 tours ; il y trouve le nom du programme avec son emplacement sur 
la face, par exemple ‘départ sur la piste n° 17, secteur n° 4". Le bras 
se place alors sur cette piste, et lorsque le secteur n° 4 passe devant 
la tête, il commence à charger le programme. Et à quelle allure [11 Un 
programme de 19 blocks (= 38 kilo-octets) se charge en neuf secon- 
des et huit dixièmes !... à faire rêver. 

Pourquoi est-ce beaucoup plus rapide que sur magnétophone ? Parce 
que ce dernier a été conçu au départ pour la musique, c’est-à-dire pour 
reproduire fidèlement des variations d'amplitude (de volume). Pas un 
lecteur de disquettes ; il ne connaît que le binaire, l'amplitude est 1 ou 
O, c'est tout. On peut alors pousser la fréquence beaucoup plus haut. 
Pour fixer les idées, disons que la disquette 3 pouces pour AMSTRAD 
‘comporte 40 pistes concentriques, numérotées de O à 39 ; chacune 
étant divisée en neuf secteurs de 512 octets chacun. Faisons le calcul : 


512xX9x40=184 320 octets (180 kilo-octets). 


Et comme les deux faces sont utilisables, cela nous fait 360 k-octets 
par disquette. Confortable, non ? Une disquette vierge vaut actuelle- 
ment entre 58 et 75 francs selon les revendeurs. Plus chère que la cas- 
sette ? Non, car une disquette peut stocker beaucoup plus qu'une cas- 
sette. Disons que, globalement, c'est légèrement en faveur de la dis- 
quette face à la C60 à 12 francs (que l'on ne remplit jamais. ). 


C'EST QUOI, LE FORMATAGE ? 


Vous venez d'acheter une disquette vierge ; elle l'est vraiment ! Car 
les pistes et les secteurs n'y sont pas. Donc, premier soin, il faut la 
“formater” : le DRIVE” va tracer ses pistes de guidage de tête et ses 
repères de secteurs (magnétiquement bien sûr). Cette opération repré- 
sente environ une minute par face. Ce traitement est définitif. La dis- 
quette est alors prête à recevoir vos enregistrements. 
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LA DISQUETTE, EST-ELLE FRAGILE ? 


Beaucoup moins qu'une cassette ! D'abord, la disquette trois pouces 
est à l’abri des poussières et des traces de doigts, car la fente de lec- 
ture comporte un volet qui se referme lorsque l'on sort la disquette du 
DRIVE. 

D'autre part, il n’y a aucune mécanique, donc plus de risque de cain- 
cements et de bourrages destructeurs comme avec les cassettes. 
NOTE : Les disquettes 5 pouces 1/4 sont bien plus économiques (= 15 
francs}, mais sont un peu plus délicates à manipuler, et la mécanique 
de leurs DRIVES est plus chère ; d'où cette nouvelle orientation vers 
le trois pouces et demi et le trois pouces, notre standard, hélas, tout 
neuf encore. 


ET LE REPERTOIRE PAR FACE ? 


Tapez CAT et Enter : le DRIVE lit le catalogue (on dit aussi DIRECTORY) 
et l'affiche à l'écran. Nous avons le nom de chaque programme ou 
fichier, son type (Basic, binaire, etc.} et sa taille en kilo-octets. Le tout 
classé par ordre alphabétique. En bas de liste apparaît le nombre de 
kilo-octets encore disponibles. | 

Vous pouvez alors la recopier au crayon sur l'étiquette carton fournie 
avec l'emballage rigide transparent de la disquette. 


A PART LA VITESSE, C'EST TOUT ? 


Oh que non ! La vitesse d'enregistrement et de lecture, c’est certes 
le plus spectaculaire, mais il faut adjoindre trois autres aspects : 

— le côté exploitation qui devient beaucoup plus souple, plus ration- 
nel, plus sûr. En un mot, plus pratique (indépendamment de la vitesse) : 
— les débouchés de “l'accès direct’, c'est-à-dire certains programmes 
utilitaires qui sont irréalisables en ‘accès séquentiel’" (cassette) ; 

— un apprentissage pratique à la micro-informatique professionnelle. 
En effet, l'AMSTRAD a choisi le ‘’DOS'" (prononcez dosse= ‘’‘DISC 
OPERATING SYSTEM”), dit ‘’CPM'", largement utilisé, et dont s'est 
copieusement inspiré IBM en créant son ‘‘MS/DOS""' pour faire son ‘‘IBM 
PC". Une future formation sur IBM PC serait alors très rapide en venant 
de l'AMSTRAD : presque les mêmes Basic, et deux DOS avant les 
mêmes ‘’esprits'" et souvent les mêmes syntaxes.. Par contre, aucun 
rapport avec l'antique DOS des APPLE II. Qui c'est qui a dit ‘‘tant 
mieux'"" ? 

Revenons plus en détail sur certains de ces points. 
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QU'EST-CE QUE LE DOS ? 


C'est le ‘‘système d'exploitation’, une sorte de langage, disons le 
‘Basic du Drive’. Ici, nous avons deux DOS, le CPM tout puissant et 
normalisé, et ‘’l'AMSDOS"". En effet, le fabricant a pris conscience que 
ce lecteur de disquettes s'adaptait à un micro-ordinateur conçu à l'ori- 
gine pour magnétophone, et cet ‘’AMSDOS"" est un langage de dialo- 
gue entre le Basic résident et le CPM. Grâce à lui, nous disposons de 
fonctions nouvelles, telle la copie d'une cassette sur disquette, où l'in- 
verse (logiciels non protégés ou déplombés). Toutes les commandes 
Basic concernant le magnétophone telles que LOAD, SAVE, OPENIN, 
CAT, etc. (à l'exception de SPEED WRITE) s'appliquent directement 
au DRIVE. 

Les différents sous-programmes CPM présents sur la disquette système 
(la précieuse) nous permettent une foule de charcutages de fichiers : 
copie de fichiers, copie de toute la face de disquette, changer les noms 
de programmes, effacer tel nom ou telle catégorie de fichiers, etc. 
Dès que le DRIVE est branché au CPC 464, ce dernier oublie le magné- 
tophone et ne s'adresse qu'à la disquette. Pour revenir au magnéto- 
phone, il suffit d'entrer ITAPE, et plus tard IDISC pour revenir au DRIVE ; 
ce sont là des commandes AMSDOS qui s'ajoutent donc aux comman- 
des Basic existantes. 


L'ACCES DIRECT 


Pour vous démontrer les avantages, nous prendrons l'exemple des ‘’ges- 
tionnaires de fichiers'” : 

Si le programme est proposé en cassette, il faut tout le charger en RAM, 
et il ne reste à peine que 20 kilo-octets pour notre fichier, donc 200 
à 300 fiches maximum. Si ce logiciel était plus sophistiqué (nombreu- 
ses options), on aurait encore moins de place pour nos fiches ! 

En revanche, une bon logiciel sur disquette peut représenter un total 
de 70 k-octets et nous laisser 35 k-octets disponibles ! Comment cela ? 
C'est très simple : 

Le logiciel est décomposé en une douzaine de sous-programmes sur 
la même face. Au départ, on ne charge que le menu, disons 2000 
octets. Vous choisissez l'option saisie, il charge le sous-programme SAI- 
SIE qui écrase MENU et vous remplissez votre fichier qui reste en RAM. 
Option tri : charge le TRI qui vient écraser SAISIE, et ainsi de suite. 
Vue l'astuce ? 

Mieux, en option ‘’Recherche sous plusieurs critères'”, on peut deman- 
der d'explorer des fichiers énormes enregistrés sur disquette, fiche par 
fiche, en ne conservant en RAM que celles qui répondent aux critères 
demandés. 

NOTE : Ces progiciels (logiciels professionnels) valent plus de 140 
francs. Beaucoup plus. 
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OUI MAIS, ET LES INCONVENIENTS ? 


Bien sûr il y en a, mineurs, mais ils existent. 

— On perd 1284 octets de la mémoire disponible. Ainsi, lorsque l'on 
fait PRINT FRE(‘"”), on obtient 42 249 octets disponibles au lieu de 
43 533, 

— Les noms de fichiers (ou de programmes) ne doivent pas excéder 
‘ huit caractères, et sans espaces ni ponctuation. 

— Après RUN‘, LOAD‘", SAVE‘, OPENIN’" et OPENOUT”", on est 
obligé de spécifier le nom du fichier ; et sans se tromper dans son ortho- 
graphe ! C'est normal, puisque le DRIVE doit aller l'identifier dans le 
‘’catalogue'’ de la face de disquette en service. 

— De ce fait, il faudra modifier la fin de certains programmes Basic qui 
enchaïînent sur un autre. Exemple, le classique : 


RUN‘ 
qui charge le programme qui suit sur la cassette en évitant l'inscription 
‘Loading MACHIN Block 1" 


Donc, ici à remplacer par RUN “MACHIN'”", voire changer le nom du 
programme s'il est trop long ou comporte des espaces. 

À noter au passage que vous n'avez plus à faire plusieurs sauvegardes 
d'un programme en cours d'écriture. Vous sauvez, par exemple, votre 
programme TRUC inachevé. Au catalogue, vous aurez en fait : 


TRUC.BAS 2K 


Le .BAS indique que c'est du Basic. Plus tard, nouvelle sauvegarde de 
travail par le même SAVE'"TRUC": : 
Au catalogue, on aura : 


TRUC.BAK 2K 
TRUC.BAS 4K 


Le .BAK, c'est la version précédente qui n'a pas été écrasée. Seule son 
‘’extension de nom’ {ou ‘’type''} a été modifiée. 

Lorsque vous ferez LOAD'"TRUC"" ou RUN'TRUC”", c'est TRUC.BAS 
qui sera exécuté. 


PEUT-ON ENREGISTRER DES LOGICIELS DE JEUX ? 


Depuis le temps que vous vouliez poser cette question. 

Directement, non. |l faut des logiciels de déplombage pour charger en 
RAM et transférer sur disquettes (durs à trouver). Tous les logiciels de 
jeux, ou presque, sont une série de programmes en Bäsic et en binaire 
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(langage machine), Or, ces derniers posent parfois des problèmes d'em- 
placements mémoire. 

C'est un travail assez long mais payant, car avoir ses cassettes préfé- 
rées sur une même disquette et disponibles chacune après moins de 
dix secondes, au lieu de cinq à dix minutes. 

Ce n’est pas toujours facile, voire impossible. Disons que le pourcen- 
tage d'échecs se situe vers 25 %. Chose curieuse, parmi les 75 % de 
transferts réussis, l'opération inverse, disquette vers cassette, heureu- 
sement sans intérêt, se solde très souvent par un échec. Bien fait pour 
les pirates ! 


CPC 464 OÙ 664 ? 


L'avènement du 664 a conduit à une baisse de prix du 464 et du DDI 
chez de nombreux détaillants, ce qui fait un prix d'ensemble à peine 
supérieur à 6500 F ; et là, on est complet. A partir du 664, il faudra 
accoller un bon magnétophone, plus encombrant que le DDI. Le prix 
global est alors sensiblement le même... 

Si, par la suite, on s'offre un second DRIVE, on le pose SUR le DDI 
{pas plus encombrant) ou À COTE du 664 (plus d’encombrement). 
Il n'est pas du tout évident de trancher en faveur du 464 ou du 664 : 
c'est alors une affaire de cas personnels bien précis. 


EN CONCLUSION 


Une phrase classique résume tout : c'est mieux, mais c'est plus cher... 
C'est très pratique, très agréable, mais pas indispensable. Car, mis à 
part certains logiciels professionnels, paraît-il en cours d'édition, le 
DRIVE n'apporte pas de ‘’puissance”" supplémentaire au système ; c'est 
comme comparer une chignole à main et une perceuse électrique : elles 
font exactement le même travail, mais avec des temps très différents 
(que le constructeur nous pardonne cette image l). 

Comme il s’agit d’un investissement (éventuel) important, il était néces- 
saire de savoir ce qu'il apporterait ou non. 
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[3 ] 


FONCTION CIRCLE 


Eddy DUTERTRE 


Resa a, on le sait, de bonnes capacités graphiques, mais 
la fonction CIRCLE manque à l'appel. Pour pallier ce défaut, 
nous vous proposons ci-dessous un petit programme en langage 
machine qui vous permettra d'obtenir cette fonction directement par 
son nom à partir du Basic. Pourquoi en langage machine plutôt qu'en 
Basic ? Tout simplement pour avoir une grande rapidité d'exécution. 


FONCTIONNEMENT DU PROGRAMME 


Pour éviter d'utiliser les routines SIN et COS de la ROM du CPC, nous 
avons opté pour l'implantation en mémoire d’une table de Sinus et de 
Cosinus d'angles compris entre O et 2 x (360°). Bien sûr, il n’était pas 
question de travailler alors avec des valeurs à virgule flottante, aussi, 
afin d'obtenir des nombres entiers, chaque valeur des tables a été mul- 
tipliée par 127 (7 FH) et séparée de sa partie décimale. On obtient ainsi 
deux tables dont les données, comprises entre O et 127, correspon- 
dent en réalité à 1 —- cos et 1 — sin, ceci afin de s'affranchir des valeurs 
négatives. Tout cela reviendra en fait à ne prendre en considération que 
deux chiffres après la virgule dans la table de sin et de cos. La suite 
devient alors très simple et se résume à de simples multiplications et 
divisions : 

Connaissant les coordonnées X et Ÿ du centre du cercle à dessiner ainsi 
que son rayon, on peut écrire, en partant du point À et en faisant varier 
l'angle de O à 2 x, que les coordonnées de chaque point du périmètre 
du cercle ont pour valeur : 


XD=X+R—R(1-cos «)= 
X +R cos « 
YD=Y-R+R(T-Ssin «)= 
Y—R sin & 
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et 


1-cos « 
1—sin & 


contenus dans les tables. 


XD=XR-R(1- cos «) 
YD=YR+R(1—-sin «) 


du centre 
@ 


| CIRCLE, X, Y,R, C 


shift coordonnées rayon 


| O à 15 en mode 0 


couleur O à 3 en mode 1 
0 à 1 en mode 2 
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UTILISATION DU PROGRAMME 


Après avoir tapé soigneusement le programme et surtout les lignes de 
DATA, il suffit de faire RUN pour l'implanter en mémoire. Si tout se 
passe bien (aucune erreur), un cercle devra se dessiner au bout de quel- 
ques secondes. 

La fonction CIRCLE sera alors disponible en faisant : 


CIRCLE, X, Y,R,C 
shift 


coordonnées 
du centre 


rayon 
couleur 

O à 15 en mode O 
O à 3 en mode 1 


O à 1 en mode 2 


Notez qu'il est alors possible de sauvegarder uniquement la routine en 
langage machine en faisant : 


SAVE "CIRCLE’",B,&A000,&1D4 
Pour la recharger et la valider avant utilisation, il faudra faire : 


MEMORY &9FFF 
LOAD ‘CIRCLE" 
CALL &A010 


Dès lors, son utilisation sera possible en Basic par le mot CIRCLE pré- 
cédé, ne l'oubliez pas, de  ‘’ (shift@1. 


LE PROGRAMME 


Dans le souci de satisfaire les lecteurs qui ne disposent pas de matériel 
de reproduction, nous sommes en mesure de vous procurer les mylars 
de ces circuits imprimés qui sont disponibles à la rédaction contre un 
chèque de 70 francs. Les abonnés de CPC pourront les obtenir pour 
50 francs en joignant à leur commande une étiquette d'abonné. 
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10 DATA C8,00,C8,00,64,00,02, 20,01 ,64 

20 DATA 00,F9,00,64,00,00,01,19,A0,21 

30 DATA 25,40,03,D1,BC,1E, A0, CS, 29,A0 

40 DATA 43,49,52,43,40,C5,00,FC, Ab, 19 

50 DATA A0,FE,04,C0,DD,66,07,DD,4E,08 

60 DATA 22,00,A0,00,66,05,DD,E ,04,22 

70 DATA 02,0,DD,68,03,DD,E ,02, 22,04 

80 DATA 40,DD,66,01,DD,6E,00,22,06,A0 

90 DATA 34,06,A0,CD,DE,BB, 24,00 ,A0,ED 

100 DATA 5B,04,40,19,22,07, A0, A7, 24,02 
110 DATA AO0,ED,5B,04,A0,€0,52,22,09, A0 
120 DATA ED,58,07,40,24,02,A0,CD,EA, BB 
130 DATA DD,21,09,A1,FD,21,8F A1 ,06,68 
140 DATA C5,ED,58,04,0,DD,7E,00,0€, 00 
150 DATA CD,D0,A0,18,00,1E,7F47C,4D,CD 
160 DATA Et,40,50,59,2A,07,A0,47,ED,52 
170 DATA 22,0B,A0,ED,58,04,A0,FD, 7,00 
180 DATA 0E,00,CD,D0,40,14,00,1E,7F,7E 
190 DATA 4D,CD,E1,h0,50,59,2A,09,40,19 
200 DATA 22,0D,A0,ED,58,08,40,CD,FÉ,BB 
210 DATA DD,23,FD,23,01,10,B3,09,06,10 
220 DATA 21,00,00,C8,39,1F,30,01,19,EB 
230 DATA 29,EB,10,F5,09,21,00,00,08,10 
240 DATA CB,11,17,ED,64,ED,52,3F,30,11 
250 DATA 10,F4,03,03,41,CB,11,17,ED,6A 
260 DATA A7,ED,5A,38,F1,28,EC,10,F2,CE 
270 DATA 11,17,19,47,09,00,00,01,02,04 
280 DATA 06,09,00,10,14,18,1D,22, 28,2 
290 DATA 34,38,42,49,50,58,5F,67,6F,77 
300 DATA 7F,87,8F,97,9F,Ab,AEB5,BC,C3 
310 DATA CA,D0,Db,DC,E1,EBER,EE,F2,F5 
320 DATA FB,FA,FC,FD,FEAFE,FE,FDFCFA 
330 DATA FB,FS,F2,EE AE Et ,DC,D6,D0 
340 DATA CA,CS,BC,B5,AE A6, 9F 497, BF, 87 
350 DATA 7F477,6F,67,5F,58,50,49,42,3B 
360 DATA 34,2E,28,22,1D,18,14,10,0C,09 
370 DATA 06,04,02,01,00,00,00,7F,77,6F 
380 DATA 87,5F,58,50,49,42,3B,34,2E,28 
390 DATA 22,1D,18,14,10,0C,09,06,04,02 
400 DATA 01,00:00,00,01,02,04,08,09,00 
410 DATA 10,14,18,1D,22,28,2E,34,3B, 42 
420 DATA 49,50,58,5F,67,8F,77,7F,87,8F 
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150 SATA 97,9F AGE, 83,80, C3, CA, D0,D6 
46 DATA DCLES,ES,EA,EE,F2,F5,FE,FA,FC 
JiÙ BATR FD,FE,FECFE,FOQFC,FA,FB,F5,F2 
460 DATA EE,ES,EB,ES DC ,D8,D0,CA,C3,BC 
479 DATA BS,AE,A4,96,97,8F,87,7F,77,4X 


d3Û L:#A000 

496 READ AS:IF A$="YY"THEN 510 

900 &eVAL IE" G$):POKE LA:L2L+1:GOTG 466 
519 CALL RAGID Ianiantation qu AS} 

320 CLS: :CIRCLE,319,200,150.1 

130 DELETE -530 


TRUCS ET ASTUCES 


Raymond STOFFEL — 68 RIXHEIM 


Ayant acheté un AMSTRAD CPC 664, j'ai été très intéressé par votre 
programme Mirage paru dans le numéro 1 de votre revue. Malheureu- 
sement, la compatibilité du 664 avec le 464 n'étant que ce qu'elle est, 
le programme en question ne fonctionnait pas correctement. 

En fait, les adresses des pointeurs Basic ne sont pas identiques sur les 
deux ordinateurs. 

Voici les correspondances qui permettront à vos lecteurs de modifier 
les deux programmes en question : 


664 464 
AEGG-AE67 AE83-AE84 
AE68-AE69 AEB85-AE86 
AEGA-AE6B AE87-AE88 


Par ailleurs, la modification des pointeurs Basic étant également res- 
ponsable du plantage du programme de jeu SORCERY, il convient de 
procéder ainsi : 


POKE &AE81,&6F: 
POKE &AE82,8&1 


et de lancer le jeu normalement en appuyant sur les touches control 
et enter. 
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INITIATION A 
LASSEMBLEUR 


Denis BOURQUIN 


partir de ce numéro, nous allons commencer une série d'articles 

d'initiation à l'assembleur. Abondamment traité certes, nous 
avons cependant pensé qu'il était nécessaire que ce sujet figure dans 
cet ouvrage. Le microprocesseur du CPC étant un Z80 de Zilog, nous 
traiterons donc plus particulièrement de l’assembleur Z80. 


Dans cette première partie, nous ne ferons pas d'assembleur, mais nous 
essayerons d'introduire un certain nombre de notions indispensables 
à la bonne compréhension de la suite. La programmation en assem- 
bleur nécessite de posséder quelques connaissances {matériel et logi- 
ciel) que nous allons passer en revue. | 
L'AMSTRAD est construit autour du microprocesseur Z80 de ZILOG, 
ce microprocesseur est dit ‘’8 bits’’ car il possède un bus de données 
8 bits. Nous allons donner quelques explications pour les débutants. 
Le microprocesseur dialogue avec les circuits qui l'entourent au moyen 
de trois bus {un bus étant une voie de dialogue à plusieurs liaisons), 
un bus de données de 8 bits (8 liaisons), un bus d'adresse sur 16 bits 
(16 liaisons) et un bus de commande. Le rôle du bus d'adresse est de : 
fournir l'adresse du périphérique avec lequel le microprocesseur veut 
dialoguer. Cette commande correspond à la combinaison des 16 liai- 
sons d'adresse. Le bus de commande permet au microprocesseur d'in- 
diquer le sens du dialogue (lecture ou écriture), le type de périphérique 
adressé (mémoire, entrée-sortie), d'indiquer son état aux périphériques 
ou de recevoir des acquittements des périphériques. 

Le plus important des circuits périphériques du microprocesseur sera 
la mémoire. Sans elle, il ne peut rien faire, c'est dans cette mémoire 
que seront stockés les programmes et les données. Elles est architec- 
turée en ‘’cases'’ de 8 bits appelées ‘'octets'”’. Le Z80 ayant un bus 
d'adresse de 16 bits, ils ne pourra donc adresser instantanément qu'une 
case mémoire choisie parmi 2116, soit 65536 cases. 
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Dans le Z80, comme dans un certain nombre d'autres microproces- 
seurs, nous distinguons, en plus de la mémoire, un autre espace adres- 
sable : celui des poids faibles du bus d'adresse ; il est donc de 218, 
soit 256 cases, ces cases sont plus couramment appelées ports. Par 
exemple, la sortie imprimante du CPC est dans cet espace, de même 
que le générateur de sons, le contrôleur d'écran, le clavier, le contrô- 
leur de disque. Mais vous aurez remarqué, dans votre manuel du CPC, 
que les adresses de l'espace entrée-sortie ne sont pas données sur 8 
bits mais sur 16 (utilisation en Basic de l'instruction INP pour lire le 
contenu d’un port et de l'instruction OUT pour écrire dans un port). 
En effet, le décodage des adresses des entrées-sorties du CPC utilise 
une des particularités du Z80 : en mode d'adressage indirect des 
entrées-sorties par le registre C, le microprocesseur met sur les bits de 
poids forts du bus adresse le contenu du registre B, mais il est peut- 
être prématuré de parler de cette particularité ; aussi, nous y revien- 
drons quand nous analyserons les entrées-sorties en assembleur. 

La mémoire du CPC est de deux types : de la ROM qui est une mémoire 
accessible uniquement en lecture et qui contient un programme figé 
par le constructeur. C'est dans cette ROM que nous trouvons l'inter- 
préteur Basic du CPC. Elle est subdivisée en deux sections de 16 kilo- 
octets chacune (1 kilo-octet = 1024 octets), la première est implantée 
à l'adresse O et va jusqu’à l'adresse 3FFFH (les adresses sont données 
ici en hexadécimal à 1610+x 15+1611+15+1612+:15+16 
3x3 = 16383). La seconde va de l'adresse COOOH à l'adresse FFFFH, 
Le deuxième type de mémoire du CPC est la RAM. Cette mémoire est 
accessible en écriture et en lecture, et est disponible pour l'utilisateur 
qui y logera ses programmes et les données de son application. Elle 
s'adresse sur 16 bits et fait 64 kilo-octets (65536 cases). Si nous fai- 
sons le compte de la mémoire du CPC, nous trouvons 96 kilo-octets ; 
il y a un truc ! Effectivement, le microprocesseur ne peut adresser avec 
ses 16 bits d'adresse que 65536 octets, mais si nous utilisons un arti- 
fice distinguant différentes zones de 65536 octets, nous augmentons 
l'espace mémoire adressable. Cet artifice peut consister, par exemple, 
en écriture dans un port d’entrée-sortie d’une valeur correspondant à 
une des zones mémoires désirées, nous avons alors paginé ou segmenté 
la mémoire. Il suffit donc de préciser, avant d'y accéder, quel est le 
type de mémoire désiré. Le CPC procède par l'écriture dans un port, 
mais nous reparlerons de cette particularité plus tard. 

Lorsque vous travaillez en Basic, vous n'êtes pas directement maître 
de la mémoire, l'interpréteur la gère à votre place. Vous n'y accédez 
directement que par les instructions POKE et PEEK. Rappelons que l’ins- 
truction PEEK {AD) retourne le contenu de la case mémoire d'adresse 
AD, et POKE AD,VAL écrit la valeur VAL dans la case d'adresse AD. 
En assembleur, c'est vous qui gérerez votre mémoire. 

Nous allons arrêter là les considérations sur la mémoire, et nous allons 
nous intéresser d'un peu plus près au microprocesseur. Regardons l'ar- 
chitecture générale d'un micro. Cette architecture simplifiée est don- 
née par la figure 1. 
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Figure 1 


Nous trouvons, comme constituants principaux : 


— Une unité arithmétique et logique ALU qui effectue les différentes 
opérations arithmétiques et logiques entre deux opérandes présentés 
sur ses entrées. Le plus souvent, l’un des opérandes est l’accumula- 
teur ; cet accumulateur est un registre interne au microprocesseur {c'est 
une mémoire interne au microprocesseur). Le registre À, dans le Z80, 
a cette vocation. À cet accumulateur nous associerons le registre des 
drapeaux qui indique la manière dont s’est effectuée une opération arith- 
métique ou logique. Nous analyserons ultérieurement le contenu de ce 
registre des drapeaux. 


— Des registres de données 8 bits. Ces registres sont utilisés comme 
mémoire temporaire des données dans les programmes. Il est toujours 
intéressant qu'un microprocesseur en possède plusieurs car le registre 
offre comme avantage, par rapport à la mémoire, d'être d’un accès plus 
rapide puisqu'interne au microprocesseur. Le Z80 possède deux ban- 
ques de 6 registres. Ces registres sont repérés par une lettre et sont 
B, C, D,E ,H et L pour la première banque, et B‘, C', D‘, E', H‘' et L’ 
pour la deuxième banque. Une seule de ces banques et accessible à 
un instant donné, le passage d'une banque à l'autre s'effectuant par 
une seule instruction. Nous remarquons que le registre À correspond 
à la première banque et que son homologue, dans la deuxième ban- 
que, est le registre A”. Notons tout de suite que ces registres de 8 bits 
peuvent être regroupés deux par deux pour être utilisés en registres 
16 bits : BC, DE, HL, ils peuvent servir de registres d'adresse. 
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— Des registres d'adresse 16 bits. Ce sont les registres IX et [Y qui 
servent d’index pour l'adressage de zones mémoires. Nous reparlerons 
des différents types d’adressages. Le registre SP est le pointeur de pile. 
La pile, mais qu'est-ce que c'est ? Lorsque vous avez programmé en 
Basic, vous avez probablement utilisé des sous-programmees que vous 
avez appelés par GOSUB. A la fin du sous-programme vous aviez l'ins- 
truction RETURN. Oui, mais return où ? L'adresse de retour, l'interpré- 
teur se l'était rangée dans un coin de la mémoire : la pile. La pile est 
une zone mémoire que vous réservez au microprocesseur, pour lui per- 
mettre de sauvegarder les adresses de retour au programme principal, 
lors des déroutements vers des sous-programmes ou vers des program- 
mes d'interruption. Cette pile vous servira aussi, dans les programmes, 
à sauvegarder le contenu des registres. Sa structure est du type LIFO 
(last-in, first-out : dernier entré, premier sorti). La sauvegarde dans cette 
pile consiste finalement en des opérations d'empilage et de dépilage. 
[| nous reste encore un registre de 16 bits à voir ; le compteur ordi- 
nal : PC. Ce registre n’est pas manipulé directement par le program- 
meur, mais c'est lui qui pointe la mémoire pour aller chercher en 
séquence les différents codes opération et opérandes. 


Le Z80 possède deux autres registres 8 bits : les registres | et R. Le 
registre | pointe la table des vecteurs d'interruption. Nous en reparle- 
rons quand nous verrons les modes d'interruption du Z80. Le registre 
R fournit les adresses de raffraîchissement pour les mémoires 
dynamiques. 


Après les quelques considérations matérielles exposées plus haut, nous 
allons parler de l’assembleur. 

La première question que tout débutant se pose est : qu'est-ce qu'un 
assembleur ? 

Un assembleur est un programme chargé de traduire un programme 
source en octets directement interprétable par le microprocesseur. 
Le programme source est une suite d'instructions écrites avec leurs 
mnémoniques et n’est donc que du texte (suite de caractères ASCII). 
L'utilisation d'un assembleur présente l'intérêt de ne pas avoir à recher- 
cher la codification des opérations dans le langage binaire de la machine 
car, rappelons-le, le système de travail d'un microprocesseur est le 
système binaire. Les assembleurs offrent, en plus, d'autres services 
qui sont des aides à la programmation et à la relecture des program- 
mes, comme l'utilisation des symboles pour repérer une case mémoire 
ou une zone mémoire, ou pour repérer un point de branchement dans 
un programme. 

Dans un programme source, nous allons trouver des directives d’'as- 
semblage, des étiquettes, des réservations de zone mémoire, des lignes 
d'instruction. 
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Les directives sont des pseudo-instructions qui fournissent des indica- 
tions au programme d'assemblage, mais ne provoquent aucune géné- 
ration de code. 

Nous allons regarder le format d’une ligne assembleur et expliquer ce 
que l’on peut y trouver. 

Le format d'une ligne d'un programme source se décompose en qua- 
tre champs : les champs étiquettes, code opération, opérandes et 
commentaires. 


Le cadre de la figure 1 donne l'alignement de ces champs et le carac- 
tère servant de séparateur. Analysons ces champs l’un après l’autre. 
Un conseil avant tout : pour une bonne lisibilité de vos programmes, 
prenez l'habitude de cadrer vos lignes d'instructions de telle sorte que 
chaque champ occupe toujours le même nombre de caractères. 


| OPERANDES | 
MNEMONIQUE DU 


COMMENTAIRES 
ETIQUETTE CODE OPERATION opi |. [op2 


Figure 1 


LE CHAMP ETIQUETTE 


Il n'est pas toujours présent, il contient un symbole qui représentera 
l'adresse mémoire où sera rangé le premier octet de code de la ligne 
d'instruction. Les étiquettes sont utilisées pour représenter des points 
de branchement ou pour représenter le début d’un sous-programme. 
Jusqu'à présent, nous n'avons pas parlé des symboles. Un symbole 
est une suite de caractères commençant toujours par une lettre, le nom- 
bre de caractères significatifs pris en compte dépend de l’assembleur. 
Voici, par exemple, une suite d'étiquettes valides : CONIN, CHL1, 
RET45, IMPRIMANTE. 

Et maintenant, voici une suite d'étiquettes incorrectes : 1BCL, HL, LD, 
END. 

La première étiquette du deuxième exemple commence par un chiffre 
et non par une lettre ; la deuxième étiquette peut être confondue avec 
les registres du Z80, la troisième est une instruction Z80 et la quatrième 
une pseudo-instruction de l’assembleur. Le es entre le champ 
étiquette et le champ opération peut être ‘’:"" ou un espace suivant le 
type d'assembleur utilisé. 


LE CHAMP CODE OPERATION 


Il contient le mnémonique du code opération, par exemple ADD. Le mné- 
monique du code opération est une abréviation du mot anglais dési- 
gnant cette opération, par exemple, ADD est le mnémonique de l'addi- 
tion, SUB le mnémonique de la soustraction, LD le mnémonique de 
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LOAD pour le chargement, mais nous les verrons lorsque nous analy- 
serons les différentes instructions du Z80. 

Dans le champ code opération, nous pourrons trouver des directives 
d'assemblages ; nous allons analyser les principales à la fin de ce 
chapitre. 


LE CHAMP OPERANDE 


|) 
Il contient 1, 2 ou pas d’'opérande suivant le type d'opération réalisée 
ou suivant que le code opération sous-entend ou non la présence d'un 
ou deux opérandes. Lorsque nous aurons deux opérandes, ceux-ci 
seront séparés par une virgule. 
Comme opérande, nous allons trouver : 


Des opérandes registres 
Rappelons qu'un registre est représenté par la lettre le désignant : ce 
sont tous les registres 8 ou 16 bits du Z80 : À, B, C, D, E, H, L, BC, 
DE;-HL,:-IX;:1; SP, LR: 


Des opérandes mémoires 

Cet opérande mémoire pourra être un symbole que nous aurons déclaré 
par une directive assembleur, directive assembleur qui associera à ce 
symbole une case mémoire. Un tel opérande sous forme de symbole 
sera traduit par l'assembleur en une adresse absolue correspondant à 
la case mémoire associée. Nous trouverons donc aussi en opérande 
mémoire une référence directe à une adresse, par exemple, 16385, sera 
la case mémoire d'adresse 163865. 

Lorsque nous adresserons une case mémoire en assembleur, la réfé- 
rence de cette case se fera toujours par l'intermédiaire de son symbole 
ou de son adresse entre parenthèses. Prenons tout de suite un exemple : 


LD (CASE),A 


L'instruction précédente est une instruction de chargement LOAD, elle 
prend le contenu du registre À et le met dans la case mémoire appelée 
ici CASE ; si cette case avait été réservée à l'adresse 16385, nous 
aurions pu écrire aussi : 


LD (16385),A 


Nous trouverons aussi en Z80 un autre type d'opérande mémoire : il 
correspond à un adressage indirect par registre. Nous n'avons plus, dans 
ce cas, directement l'adresse de la case mémoire, mais cette adresse 
se trouve dans un registre 16 bits. Revenons à l'exemple précédent. 
Pour stocker le contenu du registre À dans la case d'adresse 16385, 
nous avions déjà les deux méthodes suivantes : 
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ORG 16385 


CASE DB 
LD {(CASE),A 
LD (16385),A 


Nous pourrions aussi faire : 


LD HL,16385 
LD (HL),A 


Mais nous reparlerons de tous ces modes d’adressage dans l’analyse 
des instructions du Z80,. 


Des opérandes immédiats 

Dans ce cas, l'opérande est directement une valeur que nous stocke- 
rons dans un registre ou une case mémoire. Notons que, dans ce cas, 
pour l'adressage en mémoire, seul l'adressage indirect par la paire de 
registres HL est valide. 

Cette valeur immédiate peut être une valeur 8 bits si nous la chargeons 
dans un registre 8 bits, ou une valeur sur 16 bits si nous la stockons 
dans un registre de 16 bits. 

Exemple : LD A,16 charge la valeur 16 dans le registre A. 

Dans les exemples donnés jusqu'à présent, nous voyons apparaître une 
particularité de l'assembleur du Z80 qui veut que l'opérande destina- 
tion soit placé avant l'opérande source, ce sera toujours le cas, quelle 
que soit l'opération (voir figure 2). 


MNEMONIQUE OPERANDE OPERANDE 
OPERATION DESTINATION SOURCE 
Figure 2 


Champ opérande à un seul opérande 

Il existe certaines instructions pour lesquelles un des opérandes est 
sous-entendu. Ceci, par exemple, est le cas de certaines opérations 
arithmétiques ou logiques comme la soustraction sans retenue qui's'ef- 
fectuent toujours entre le registre À, qui a vocation d'accumulateur, 
et un autre opérande. 

Exemple : SUBB soustrait le contenu du registre B du contenu du regis- 
tre À ; le résultat est dans le registre A. Autre exemple : AND C qui 
est le ET logique entre le registre À et le registre C. 


Champ opérande vide 
Dans ce cas, il n’y a aucun opérande dans le champ opérande. Ceux-ci 
sont sous-entendus dans le mnémonique opération. 


Exemple : RRA, mais nous les verrons de même avec l'analyse des ins- 
tructions. 


Champ opérande avec codes conditions 

Nous avons là un autre cas d'opérande, la première partie du champ 
opérande contient une condition qui résultera d'une opération et la 
deuxième partie du champ sera une adresse absolue ou relative. Nous 
trouvons ce cas de champ d'opérande dans toutes les instructions de 
branchement. 


JP Z,DEBUT 
JR Z, DEBUT 


Le format de l'instruction est celui de la figure 3. 


Mnémonique 


Condition à adresse absolue 


du saut ee à 
o réaliser ou relative 


absolu relatif 


Figure 3 


Champ opérande avec opérateur 

Le champ opérande peut contenir des opérandes plus complexes ; cette 
possibilité est offerte par les assembleurs comme une aide au program- 
meur. En effet, ceux-ci contiennent toujours un interpréteur d’'opéra- 
tion plus ou moins rudimentaire. 

Nous trouverons au moins comme opérateur les 4 opérations de base 
{x { + —), 

Donnons tout de suite un exemple : nous pourrons écrire avec un assem- 
bleur : 


LD HL,80*4+ECRAN 


L'exemple donné donnera à l'assemblage si auparavant nous avons 
défini la directive : 


ECRAN EOU OCO00H 
l'équivalent de l'instruction : 
LD HL,0C140H 
Autre exemple plus simple : nous pouvons écrire : 


LD A,16+4 
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ce qui est équivalent à : 
LD A,64 


Quel est l'intérêt de ce type d'écriture ? Le premier est de ne pas avoir 
à faire tous les calculs, et le deuxième de permettre une meilleure lisi- 
bilité des programmes. 

Pour l'utilisation des opérateurs, il est impératif de se reporter à la docu- 
mentation de l’assembleur utilisé, car ces derniers ne respectent pas 
toujours la hiérarchie des opérateurs ; par exemple l'assembleur ZEN 
évalue une expression strictement de gauche à droite et donc l’exem- 
ple précédent n'aurait pas donné le même résultat si on avait écrit : 


LD HL,ECRAN + 80 4 


Plus loin, nous essayerons de vous faire une comparaison entre les 
divers assembleurs en notre possession. 


Le champ commentaire 

Ce champ est toujours précédé d'un point-virgule. Nous y trouverons 
donc les commentaires du programmeur sur le fonctionnement de son 
programme ou pas de commentaire du tout. Encore une fois, nous vous 
donnerons un conseil : renseignez abondamment vos programmes, il 
vous sera plus facile de les reprendre quelques mois après. 


[4] 


Après avoir regardé le format d'une ligne assembleur, et avant de nous 
lancer dans les instructions du Z80, nous allons analyser quelques direc- 
tives assembleurs rencontrées dans pratiquement tous les assembleurs 
Z80. 


Les directives d'assemblage 

Les directives d'assemblage sont des pseudo-instructions ; elles ne pro- 
voquent pas de génération de code objet, mais elles sont là unique- 
ment pour permettre au programme d'assemblage de fonctionner nor- 
malement. Nous ne ferons pas le tour de toutes les directives, mais 
seulement des principales, nécessaires à l'écriture d'un programme ; 
nous introduirons les autres au fur et à mesure de l'analyse des ins- 
tructions Z80 avec les exemples. 


La directive ORG 

La syntaxe de cette directive est de la forme ORG 4000H. Elle se 
compose de la commande ORG et d'une adresse définie sur 16 bits. 
Son rôle est d'indiquer au programme d'assemblage que ce qu'il va 
assembler commence à l'adresse indiquée, dans l'exemple à l'adresse 
4000H {en hexadécimal). Comme ZEN est un des assembleurs les plus 
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répandus sur AMSTRAD, nous parlerons d'une directive particulière 
dont il est doté : la directive LOAD. 


LOAD 

ZEN est un assembleur qui assemble uniquement en mémoire ; il sera 
donc nécessaire de lui indiquer dans quelle zone mémoire il devra loger 
le code qu'il génère. Ce sera le rôle de la directive LOAD ; en l'absence 
de cette directive, il ne génère qu'un listing d'assemblage. Exemple : 
sous ZEN pour écrire un programme qui commencera à l'adresse 8000H 
et que l’on voudra exécuter ensuite ou sauver sur cassette, il faudra 
écrire : 


ORG 8000H 
LOAD 8000H 


Cette directive LOAD n'existe pas sur les autres assembleurs qui génè- 
rent le code objet soit dans un fichier disque, soit en mémoire lorsqu'ils 
possèdent l'option d'assemblage ‘en mémoire”. 


La directive EQU 

Le rôle de cette directive est d'affecter une valeur à un symbole, 
symbole qui sera une constante ; cette fonction est l'équivalent du 
CONST en Pascal. Chaque fois que l’assembleur rencontrera, par la 
suite, ce symbole, il le remplacera par sa valeur. 

Exemple : 


CAS EQU 5 
LD C,CAS 


est équivalent à LD C,5 et l'assembleur génère le code correspondant 
à LD C,5. 
Autre exemple : 


MOTCAS EQU 0F610H 
LD BC,MOTCAS 


L'assembleur génère le code équivalent à LD BC,0F610H. Nous avons 
associé à MOTCAS la valeur hexadécimale 0F610hH, et tout au long 
de notre programme, ce symbole vaudra OF610H. 

Normalement, dans les assembleurs, un symbole défini par la directive 
EQU ne peut pas être réaffecté ; nous ne pouvons trouver la directive 
‘‘ETIQUETTE’" EQU qu'une seule fois dans un programme. 

Dans les exemples, nous avons écrit les constantes soit en décimal, 
soit en hexadécimal : nous allons ouvrir une parenthèse sur la manière 
d'entrer une constante en assembleur. 
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LES CONSTANTES 


Nous pouvons, dans une ligne instruction, écrire une valeur immédiate : 
— en notation décimale : en général, l'écriture est la suivante : 10, 15, 
6 
— en notation hexadécimale : dans ce cas, on indique que la base est 
différente en mettant la lettre correspondant à la base de numérota- 
tion à la fin de la constante ; la lettre pour la notation hexadécimale 
est la lettre H. La notation hexadécimale est la base 16, et nous avons 
donc 16 chiffres qui sont O0 à 9Setde AùàF. 


Les constantes octales 

Comme pour la représentation hexadécimale, la représentation octale 
sera indiquée par une lettre, cette lettre est la lettre O après la cons- 
tante. Exemple : 230. 

230 est équivalent à 19 en décimal et à 13H. Les chiffres dans cette 
représentation vont de O à 8. 


Les constantes ASCII 

Un caractère peut être représenté par un code international abondam- 
ment utilisé en informatique : le code ASCII. Par exemple, la lettre À 
est codée par le nombre 65 ou 41H en hexadécimal. Nous pourrons 
donc utiliser les lettres sous leur représentation ASCII en assembleur ; 
par exemple pour l'affichage d’un texte à l'écran, le code d'échange 
des caractères à afficher sera le code ASCII. 

Exemple : en assembleur nous pourrons écrire : 


LD A,'B' 
ce qui est équivalent à : 
LD A,66 


car le code ASCII de ‘B' est la valeur 66. 

Exemples : 10H, OFFH, OCO00H 

Comme dans ce système de numérotation nous utilisons des chiffres 
qui sont représentés par des lettres, et pour éviter toute confusion avec 
des symboles, lorsque le premier chiffre d'une constante hexadécimale 
est une des lettres À à F, il est impératif de mettre devant un O, sinon 
une erreur sera générée à l'assemblage. 


Revenons à nos directives d'assemblage. 

Dans un programme, nous traitons des données, il va donc être néces- 
saire de leur réserver de la place en mémoire. Nous avons, pour cela, 
un certain nombre de directives, ce sont les directives ‘’Define”. 
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Directive DB ou DEFB (define byte) 

Le rôle de cette directive est de réserver un ou plusieurs octets en 
mémoire. 

Exemple : MESSAGE DB "BONJOUR" Le message est dans le champ 
étiquette, DB dans le champ opération, BONJOUR. 

Dans le champ opérande, cette ligne d'instructions réservera une zone 
mémoire ; dans la première case de cette zone, nous aurons la valeur 
65, dans la deuxième la valeur 79, etc. Chacune de ces valeurs étant 
le code ASCII de la lettre correspondante : 65 est le code ASCII de B 
et 79 le code ASCII de ©. Par la suite, nous ne parlerons plus de cases 
mémoire mais d’octets, car chacune de nos cases mémoire est un octet, 
comme nous l'avions expliqué précédemment. 


Lorsque, dans la suite du programme, nous ferons référence à MES- 
SAGE, ce sera à l'octet d'adresse correspondant à la case où se trouve 
la lettre B {valeur 65), c'est-à-dire si nous avons : 


ORG 7000H 
MESSAGE DB ‘BONJOUR 


la lettre B se trouve à l'adresse 7000H, la lettre O à l'adresse 7001H, 
etc. 

Autres exemples : 

VAL1 DB 10 

VAL2 DB OF5H 

TAB DB 10,11,12,14 

Le troisième exemple a réservé 4 octets aux emplacements 10, 11, 
12 et 14. 


Directive DW, DEFW (define word) 

Par cette directive, nous ne réservons plus un octet, mais un groupe 
de deux octets appelé mot (mot de 16 bits). 

Exemple : MOT1 DW OF542H 

Nous avons, par cette directive, réservé deux octets en mémoire dans 
lesquels nous aurons mis les valeurs 42H pour le premier octet et F5H 
pour le second. Nous voyons ici une autre particularité du Z80 qui, pour 
stocker des mots en mémoire, stocke d'abord l'octet de poids faible, 
puis l’octet de poids fort. 

Dans la suite du programme, si nous écrivons LD HL,(MOT1), nous met- 
trions dans la paire de registre HL la valeur F542H, le registre H à la 
suite de cette instruction contenant OF5H et le registre L contenant 
42H. 

Nous pouvons trouver aussi : BRANCH DW TABLE avec TABLE qui est 
une étiquette de programme et dans ce cas, BRANCH est initialisé à 
la valeur de l'adresse correspondant à TABLE. 


Directive DS ou DEFS (define storage) 
La syntaxe de cette directive est la suivante : 
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BUFFER DS 128 


Dans cet exemple, nous avons réservé une zone mémoire de 128 octets 
que nous avons appelée BUFFER. 

Cette directive n'affecte pas une valeur à un octet, mais réserve un 
certain nombre d'octets ; nous trouvons derrière DS ou DEFS le nom- 
bre d'octets réservés. 

La syntaxe employée pour les différentes directives utilisait l'espace 
comme séparateur. Les utilisateurs de ZEN auront remarqué que leur 
assembleur n'utilisait pas la même syntaxe. 

Comme il a été dit plus haut, ZEN utilise les deux points comme sépa- 
rateur du champ étiquette et du champ instruction ; nous aurons donc 
avec ZEN l'écriture suivante pour les directives DEFINE : 


MOT1:DW 0F542H 


MESSAGE:DB ‘BONJOUR 
BUFFER:DS 128 
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LE BUG DE L'OPENOUT 


Michel ARCHAMBAULT 


Ro ROM a ses petits bugs, et le Basic du CPC 464 n'échappe 
pas à cette triste règle. Or, ce bug peu génant avec cassettes 
devient un lourd handicap si l'on se sert d’un lecteur de disquettes. 
Voici les faits : 


6100 INPUT ‘’NOM du FICHIER’, FICH$ 
6110 OPENOUT FICH$ 

6120 WRITE #9, etc. 

6200 CLOSEOUT 


S'il y a peu de variables en RAM, si le fichier FICH$ est assez petit 
{moins de 4000 octets environ), il n'y aura aucune anomalie, c'est-à- 
dire qu'en faisant CAT, nous aurons bien le nom du fichier FICHS. 
À présent, le fichier fait déjà 5 ko, sauvegarde CAT. Oh | surprise ! pas 
de FICH$ au catalogue (ou en-tête de fichier) mais un nom bizarre cons- 
titué par un fragment des données de FICHS$ ! Autre inconvénient : le 
programme se bloque de nombreuses secondes avant et après l’enre- 
gistrement sur cassette ou disquette. Idem d'ailleurs au rechargement 
par OPENIN. 

Lorsque l'on utilise la magnétophone, on ne s'aperçoit guère de la dété- 
rioration du nom du fichier, car on a, par exemple : 


9100 OPENIN ‘ 


ou mieux encore OPENIN‘’!" qui supprime les messages à l'écran ‘‘LOA- 
DING MACHIN Block 1‘. 

Le programme charge donc le premier fichier qu'il rencontre sur la cas- 
sette en lecture. En revanche, une telle écriture ferait planter avec un 
“Bad Command” s'il doit lire sur une disquette ! Il faut alors que OPENIN 
soit suivi du vrai nom du fichier, FICHS :; et si celui-ci a été ‘‘détérioré’ 
lors dé son enregistrement, il y aura plantage. Motif : ‘‘nom de fichier 
inconnu‘. Plutôt gênant ! 
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Voici d'abord le remède (trouvé non sans peine... )] et ensuite 
l'explication. 


LE REMEDE 


Au début d'un programme Basic susceptible d'enregistrer ou de lire un 
long fichier, insérez les lignes suivantes : 


50 OPENOUT ‘BIDON’ 
60 MEMORY HIMEM — 1: 
CLOSEOUT 


Très important : 

— les définitions de variables {ex.: N=15) ou de DIM (ex.: DIM 
AD$ (200,5) seront placées APRES ces deux lignes ; 

— en revanche, un SYMBOL AFTER doit être logé AVANT ces lignes. 
Un exemple très concret : notre programme LABELMATIC publié dans 
CPC n° 1, page 21 sera amélioré de la façon suivante : 


— efface la ligne 300 (= GOSUB 51000) 
— 30 GOSUB 51000 
— écrire les lignes 50 et 60 


Le GOSUB 51000 exécute un petit sous-programme qui établit les 
caractères AZERTY accentués, et il commence par un SYMBOL 
AFTER... On a donc déplacé ce GOSUB de la ligne 300 à la ligne 30. 
Sans cette précaution, on aurait droit à un ‘’Memory full‘’ (mémoire 
pleine). 


EXPLICATION DU PHENOMENE 


Le programme Basic se loge dans le ‘‘’bas'’ de la mémoire, tandis que 
les variables s'empilent en ‘‘haut'”, juste avant la zone RAM réservée 
à la mémoire d'écran. Cette limite supérieure de la mémoire a pour 
adresse HIMEM (=HIGH MEMORY). On peut l’abaisser par la com- 
mande MEMORY. 

Or, voilà que le programme rencontre la commande OPENOUT, et voici 
la farce que cela provoque : 

Le HIMEM s'abaisse automatiquement de 4096 octets, soit 4 kilo- 
octets, l'emplacement pour loger deux ‘‘blocks’’. Donc, tout le paquet 
des variables qui se trouvaient juste en-dessous, voient leurs adresses 
abaissées de 4096, et si elles sont nombreuses, ce relogement peut 
prendre du temps... 

Si on avait demandé OPENOUT ‘’AGENDA”", le fichier serait enregis- 
tré sans problème sous ce nom fixe et programmé. En revanche, si c'est 
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OPENOUT FICH$, il doit aller chercher FICH$ dans le bloc qu'il a déplacé 
{ou qu'il n'a pas fini de déplacer ?}. Et c'est là que se manifeste le bug 
de la ROM AMSTRAD CPC 464 : si le bloc de variables est trop impor- 
tant, il ‘tape à côté’" dans la mémoire et nous ramène autre chose en 
guise de FICHS$. 

Arrive le CLOSEOUT, le HIMEM reprend son ancienne valeur, nouveau 
déplacement de la mémoire, mais vers le haut, tout aussi lent qu'à la 
descente. 

Avec OPENIN FICHS, c'est tout aussi long, mais il n'y a pas d'erreur 
pour retrouver la bonne valeur. Le bug ne concerne donc que OPENOUT. 


À présent, expliquons le remède : 

Cet OPENOUT ‘‘BIDON’’ de la ligne 50 a pour seul but de faire abais- 
ser l'HIMEM ; comme il n'y a encore rien ‘‘en-dessous””, c'est instan- 
tané. C'est alors l'occasion de figer définitivement le sommet de la 
mémoire disponible par MEMORY HIMEM — 1, même après le CLOSE- 
OUT. On laisse donc vide cet espace de 4 ko pour que les OPENOUT 
et OPENIN futurs ne fassent plus ces ‘coups d'accordéon’” sur le bloc 
des variables, lequel restera fixe. Plus d'erreurs de noms de fichiers, 
plus d’attentes avant et après les enregistrements ou lectures des 
fichiers. 
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LES FONDATIONS 
D'UN PROGRAMME BASIC 


Michel ARCHAMBAULT 


L es premiers programmes Basic d'un débutant commencent presque 
toujours par PRINT ou INPUT. Vingt ou trente lignes plus loin, on fait 
RUN, et tout s'écroule. De même que l'on ne construit pas une maison sur 
un sol meuble, il est suicidaire de se lancer dans un programme sans prendre 
des précautions dès le départ. Il ne s’agit que de quelques bonnes habitudes 
à prendre. 


La première chose à faire, c'est sur papier, c'est le plan. l'itinéraire, la stratégie 
à suivre portant le nom pompeux d'ORGANIGRAMME: même si ce ne sont 
que quelques notes griffonnées sur une demi feuille. Nous n'en parlerons pas, 
car aujourd'hui on va rester tres terre-à-terre, 


LES NUMEROS DE LIGNES 


Les numéros autorisés vont de 1 à 65535 et chacun d'entre eux a le même 
encombrement mémoire. deux octets seulement. D'autre part, il est très 
important de savoir que le “pas” (l'écart) entre deux numéros de lignes qui se 
suivent n'a absolument aucune incidence sur la vitesse d'exécution du pro- 
gran me. Par exemple, un programme de six lignes numérotées de 1 à 6 (donc 
au pas de 1}, n'ira absolument pas plus vite que s'il était au pas de 10 000 entre 
10 000 et 60 000. Donc n'ayez aucune hésitation pour espacer vos numéros. 
— Dans une suite naturelle” de lignes, le pas minimum est de 10. 

— Dès la moindre transition, passez à la centaine suivante, exemple la suite 
600, 610, 620, 700 {ou carrément 800). 

— Dès que l'on attaque une autre partie du programme, on passe au millier 
suivant. Exemple : 1220, 1230, 2000, 2010. 

— Chaque ligne en mille est un REM, exemple 3000 CALCULS DES 
MOYENNES. 
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Ne croyez surtout pas que c'est “pour faire joli” ! Ce sont plutôt des ruses pour 
subir sans douleur les deux grandes lois de l'informatique : à savoir : 


1 — UN PROGRAMME NE FONCTIONNE JAMAIS DU PREMIER COUP 
2 — UN PROGRAMME PARFAIT N'EST JAMAIS DÉFINITIF. 


Les principaux avantages sont les suivants : 


— Grâce à ce saut à la centaine ou au millier suivant, nous pourrons très 
facilement ajouter plusieurs lignes à tel passage. Si vous pressentez une 
future mise au point laborieuse, sautez plusieurs centaines ou milliers. 
C'est gratuit. 

— La localisation rapide. Exemple : la présentation de telle page d'écran ne 
vous plaît guère, vous savez que c'est la ‘partie 8000”. Alors faites : 
LIST 8000-8900 (même si la 8900 n'existe pas). Cinq secondes plus tard, 
vous avez identifié à l'écran la fameuse ligne à modifier. Si tout le listing était 
continu au pas de dix et sans REM, il faudrait compter au moins cinq à dix 
minutes pour retrouver cette ligne... 


ANNONCEZ LA COULEUR 


Avant qu'un programme démarre, il faut fixer de nombreux paramètres, même 
s'ils ne servent que vers la fin, Autrement dit, on “jette les bases”. 

— Tout d'abord, en ligne 10, un REM où se trouvent le nom du programme 
et sa date. Pas celle de sa création mais celle de sa dernière modification ; 
ceci afin de pouvoir identifier la version la plus récente... 

— Fixer les variables entières par DEFINT, S'il n'y aura aucun nombre décimal 
ou supérieur à 37 767 ou inférieur à - 32 768, écrire 50 DEFINIT A:-Z. 
Sinon (par convention) DEFINT I-N. Ce qui veut dire que toutes les variables 
numériques dont le nom commence par les lettres |, J, K, L, M ou N seront 
des nombres entiers. On peut aussi écrire DEFINT AB, l-P, Z. Deux énormes 
avantages : chaque variable entière occupe deux octets au lieu de cinq. Les 
boucles FORNEXT dont l'indice est entier,vont deux fois plus vite | 

NOTE : La convention" entiers de | à N vient du langage FORTRAN car let N 
sont les premières lettres du mot “INTEGER" signifiant entier en anglais. D'où 
l'usage courant de ces lettres comme indices de comptage (FOR 1 = 1 TO... 
N = N + 1, etc.) 

— Confirmer les paramètres d'écran même s'il s'agit de valeurs “normales”, 
ce afin de ne pas hériter de celles du programme précédant {qui restent actives 
même après un NEW). Exemple : 

60 INK 0,1 : INKT, 24 : INK2, 20 : INK3,6 : BORDER 1 70 PAPERO : PEN 1 : 
MODE 1 : CLS : ORIGINO LC. 

— Tous les DIM sur la même ligne. Exemple : 

100 DIM ACIS (24), NB (120), RESULT (12,3), REC S (64) 
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Mettez cette suite en ligne 100, parce que c'est facile à retrouver. Les 
avantages : 

@ On n'a pas à réécrire “DIM” à chaque fois 

@ En cours de programmation, si on veut modifier ou ajouter un nouveau 
tableau DIM, on n'a qu'à faire EDIT 100. 

@ Tous les DIM étant définis en début du programme, on est certain qu'un 
GOTO où un GOSUB ne viendra pas ‘repasser’ dessus, provoquant ainsi 
un plantage avec ‘’Redim Array Error” (- tableau redimensionné). 


LE MENU-CARREFOUR 


Avez vous remarqué que tous les logiciels du commerce, jeux ou utilitaires, 
on un “menu-carrefour” ? Une page d'écran qui propose les options principales 
. chacune d'entre elles peut aiguiller sur d'autres menus; mais en fin d'exécution 
{ou de "GAME OVER"), on revient à ce même point de départ, d'où on peut 
repartir vers une autre voie. C'est l'architecture type de tout programme 
informatique (même en “grosse informatique"), c'est en quelque sorte le retour 
systématique à la table des matières d'un manuel : on va à tel chapitre ou on 
décide de fermer le livre. 

Nous ferons de même, c'est facile, mais surtout si pratique : une “bonne” 
habitude consiste à ce que la première ligne de cette étape menu porte le 
numéro 1000. Toujours la même raison, c'est facile à retenir tout comme 
10 = titre + date et 100 = DIM. Avantage : en cas d'arrêt du programme, soit 
volontaire par la touche ESC ou plantage impréw, il est facile de “reprendre” 
la main” en conservant les variables en cours en tapant : 


GOTO 1000, et Enter 


Lorsque l'on doit intervenir sur un programme Basic vieux de plusieurs 
années, c'est bougrement pratique, cet “universel” GOTO 1000 ! 


LES MODULES OÙ SOUS-PROGRAMMES 


À la suite du menu principal, on a les différents départs qui, eux aussi 
reviennent à la même ligne {sauf pour END), et que trouvons-nous sur cette 
ligne ? GOTO 1000. 


En somme, le “moteur” du programme va des lignes 10 à 2000, ce qui peut 
faire une trentaine de lignes, que le programme fasse deux où vingt kilo- 
octets ! Ce qui change, c'est la taille et le nombre de ces modules commencant 
en ligne 3000. Avantages : 

Vous avez conçu un petit programme qui marche bien, et tellement intéressant 
que vous décidez de l'étoffer, d'en faire un gros programme. Ne le retapez pas! 
Ajoutez des lignes aux divers modules, ou refaites complètement tel module. 
Par exemple, le “bloc 8000" qui faisait 10 lignes va maintenant en faire 68 ! 
On peut créer de nouvelles options, donc de nouveaux sous-programmes, et 
ce sans déranger le reste ! 
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QUFLQUES REMARQUES 


- Vous voulez un joli titre avec animation, son, etc. Vous ne pouvez pas le 
loger entre les lignes 500 et 990, Faites simplement : 

500 ‘TITRE 

510 GOSUB 20000 


Et ‘“la-bas”, vous aurez toute la place nécessaire. 


:— Dans notre exemple, nous avons prévu les lignes 2010 à 2020 pour resti- 
tuer les options par défaut que l'on a lors de la mise sous-tension (PAPER, PEN. 
INK, ORIGIN, etc.) ; seulement celles que l'on a dérangées en cours du pro- 
gramme. C'est remettre le micro dans l'état où on l’a trouvé. Un peu d'ordre 
évite bien des bizarreries sur le programme que l'on chargera après. Si vous 
vous êtes servi d'une imprimante, mettre au début et à la fin du programme : 


PRINT+#8.CHRS(27):"  ‘; 


qui vide le buffer des consignes de l'imprimante. 


CONCLUSION 
Toutes ces méthodes, res “bonnes habitudes”, n'ont vraiment rien de 


contraignant, et nous avons démontré tous les avantages que l'on pouvait tirer 
d'une architecture rationnelle sur des fondations solides. 
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REDEF'CAR 


Stéphane CLOIREC 


V ous qui avez tant peiné, armé de votre feuille de papier et de votre fidèle 
crayon, pour créer les caractères graphiques indispensables à vos program- 
mes, ne désespérez plus | 

REDEF'CAR va simplifier ce qui était autrefois une corvée, grâce aux différentes 
fonctions qui suivent : 

— Vous mana uvrez le petit curseur dans la fenêtre d'édition grâce au pavé de 
curseur. 

— Lorsque vous appuyez sur la barre d'espace, la case sur laquelle le curseur 
se trouve change de couleur {noire si elle était blanche et blanche si elle était 
noire). 

— (E) Efface le caractère de travail, 

— (1) Permet de faire une version “inversée” du caractère de travail (négatif 
de photo). 

—- {M} Comme miroir, produit une image retournée du caractère de travail par 
rapport à l'axe vertical. 

— {D} Cette fonction vous permet de modifier ou de continuer un caractère 
déjà existant. || vous faut rentrer les 8 valeurs du “SYMBOL"", puis le program- 
me vous rend la main. 

— {S) Utilisant une routine en langage machine, ceci permet de conserver, 
sous la forme d'une ligne Basic {ex. : SYMBOL 140,1,2, 4,8, 16,32, 64, 128), 
le caractère que vous venez de créer. 

— (Q) Quitte le programme et vous permet de lister les caractères que vous 
avez mémorisés avec la fonction “SYMBOL" (S). 


ATTENTION : 

— Avant chaque utilisation du programme, resetez l'ordinateur par CTRL 
SHIFT ESC. 

— Après avoir quitté le programme, et si vous avez conservé des caractères 
par “SYMBOL", n'oubliez pas de les sauvegarder pour un éventuel “MERGE". 
— N'oubliez pas d'intégrer au programme utilisant les caractères graphiques 
l'ordre : SYMBOL AFTER 139. 
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— Il faut faire "RUN après avoir quitté l'éditeur, pour pouvoir visualiser les 
symboles créés. 
1Q  HNAANNNANNEE 


20 ‘À # 
30 ‘ # REDEF CAR À 
40 ‘ # # 
50 “ #  LOADER 
50 “4 # 
10  HAAANRANANARENE 
80 ‘ 

50 ” 


100 SYMBOL AFTER 129 

110 MODE 1:SPEED INK 50,50 

120 SYMBOL 133,195,231,42,24,44,231,195,0 

130 SYMBOL 134,0,231,20,40,231,0,0,0 

140 SYMBOL 139,4,8,60,102,126,96,60,0 

190 INK 0,13:BORDER 13 

160 INK L,0:INK 2,24:INK 3,2,20 

170 HINDOH #1,6,38,5,12:PAPER #1,1:CL5#1 

180 HINDON #1,5,37,4,11:PAPER #1,2:CLS#1 

190 WENDOW #2,10,35,17,19:PAPER #2,1:CL5#2 

200 HINDOW #2,9,34,16,1B:PAPER #2,2:CLS#2 

210 LOCATE #1,13,2:PRINT#1,"REDEF CAR" 

220 LOCATE #1,13,3:PRINT#1,STRINGS$ (9,133) 

230 LOCATE #1,4,6:PRINT#I,"REDEFINISSEUR DE CARACTERES" 
240 LOCATE #1,4,7:PRINT#I.STRING$ (27,134) 

250 LOCATE #2,3,2:PRINT #2,CHR#(164):"1985 St':CHR$:139):"phane CLOIREC" 
240 PEN 3S:LOCATE 12,24:PRINT'Chargenent en cours." 

270 FOR I=i TO ZS00:NEXT I 

280 RUN"!REDEF 1" 


10  FAAHANAARNIENRARE 


20 ‘ # ñ 
30 ‘ # REDEF CAR # 
40 ‘ # ê 
30 ‘ # (c) S,CLOIREC # 
60 "4 L 
10  HAAANEAEHENMHAREE 
80 

90 


100 INK 3:26:LOCATE 4,24:PEN 3:PRINT"Voulez-vous Les instructions ?" 
110 IF INKEY(34)=0 THEN GOSUB 1790 ELSE IF INKEY(46)()0 THEN 110 

120 

130 " FENÊTRES 

140 ‘ 

150 INK O,13:INK 1,0:INK 2,24: INK 3,24,13:M0DE 1: BORDER 13 

180 ‘ 


170 WINDOW #0,2,40,23.25:PAPER HO.L:CLS 40 
180 WINDOM #1,2,11,2.11:PAPER #1, 1:CLS A1 
190 WINDOW #2,14,22,2,11:PAPER #2,1:CLS 82 
200 MINDOW #3,25440,2,11:PAPER 43, 1:CLS #3 
210 MINDOW #4,2,40,14,20:PAPER H4,1:CLS H4 
220 WINDOM #0,1,39,22,24:PAPER HO,2:CLS #0 
230 WINDOW #1,1,10,1,10:PAPER #1,2:CLS HI 
240 WINDOW #2,13,21,1,10:PAPER #2,2:CLS #2 
250 NINDOW #3,24,39,1,10:PAPER K3,2:CLS K3 
260 MINDOW #4,1,39,13,19:PAPER #4,2:CL5 #4 

270 
280 ‘ CARACTERES GRAPHIQUES 
290 


300 SYMBOL AFTER 128:DEFINT À-Z:DIM VLIG(8) ,CAR(8,8): SPEED INK 60,30 
310 ” 

320 SYMBOL 129,259,129,129,129,129,129,129,255 

330 5SYMBOL 130,255,159,153,231,231,153,193,255 

340 SYMBOL 131,231,231,231,24,24,231,231,231 

350 SYMBOL 132,255,255,255,255,255,299,239.255 

360 SYMBOL 133,193,231,92,24,44,231,195,0 

370 SYMBDL 134,0,231,20,40,231,0,0.0 

380 SYMBOL 133,0,4,70,123,123,70.4,0 

390 SYMBOL 136,0,0,0,248,124,0,0,0 

400 SYMBOL 137,244,135,245,7,120,96,28,252 

410 SYMBOL 198,225,128,228,8,18,37,71,133 

420 SYMBOL 1939,4,8,60,102,12b,96,60.0 

430 ‘ 

440 ‘  INITIALISATION 

450 

460 KEY 1S8,"INK 1,0:INK 0,13: BORDER 1S:PEN 1:PAPER O:MODE 2:LIST"+CHRS (1 
31 

470 PEN 

480 LOCATE 2,2:PRINT CHR$(137);" REDEF'CAR ";CHR$(138);" "sCHRS(164)+"19 
85 St';CHR$(139) ;"phane CLOIREC":LOCATE 4,3:PRINT STRING$ 19,134) 

490 NUMLIG=1 :NUMSYMB=140: ADR=&7000 
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so GOSUE 1076 
510 LOCATE #3 
526 LOCATE #35 
530 _GCATE # 


B Ze PRENTHS "LMODEJ':PRINTAS, SPC (SH +STRINES (6,133) 
3,205 
3, 
540 au #4, 
à, 


à, 
3,3: FRINT#3 "ZERO UN" 

3,6: PRINT STRINGS 4,134): SPC IS: STRINGS 12,134; 

16,2: PRINTEA "COMMANDES*: FRINTHA4, SPC T5): GTRINGS 19,195) 
li 


ccQ LACATE 44,1, SPRINT" [D] MODIFIE £E) EFFACE (Qi QUITTÉ" 
Sci FRUNTÉE CI INVERSE CH MIRGIR (SJ) SYNBQL" 


58)  AOUTINE PRINCIPALE 


pi CALL GERS 

id IF INLEYiS:zû CAEN taf-i ELCE IF [NKE(ii:=0 THEN 2541 
AGÙ IF JRKEViIGIEG THEN YaN-! ELSE iF NET: 2izQ THEN V4] 
#39 IF YCUMIN THEN faiMIN GE :F MAY THEN 21MAX 

AG jF VAYMIN THEN YejMIt ELSE 15 VHVMA4E THEN Y2YHAS 


En LACATE HIAGIIF CAR, 6-i;a0 THEN PRINT HICHRS 129) ELSE PRINT #1 
cho LOCAGE dff,tiir CARiN-: f-1ied THEN PRINT #I,CHASGA3Ui ELSÉ PRINT 81 


273 LOCATE #l,écsriF INKET (47 }& 0 THEN 700 

Bat IF COR Vie THEN CAR) 1e te PRINTAI CHRS SH VLIGiY- Li suLi 
niperuate tete DCATERD S-LENCSTRHIULIG Tir CTIPRINT2 GTA INLIGIT-15 5: 
FLOT 408+1+4,27E+4j4-281 LiPLOT AOR+E#447,270+16-281,LiPLOT S5641+2,278+16 
-3+f,i;:8070 70Ù 

SG LR eee PAINTÉS CHARS (130 VLC TL VE IR T-15-2" 18-15 sLOCATERZ 
OU PRINTEN," "eLOCATE#Z,G-LENSTRS VLIGIY-1) 23 Ye PRINTHZ,STRE(VLIGiT- 
LotsBLAT dOB+H+4,278+16-24 2: PLOT 408+##4+2,278+14-2#V,2:PLÛT 550+442,27 
B+{o-7+1,2 

oi 4: 8sf 

7 IF NÉE‘) = THEN GIGUS 107 

729 EF INKET: 671) THEN CLS:LOCATE 12,2:PRINT' FIN DE PROGRAMME. 160606 1 
BAGIMODE 2: CALE LROGG:FOKE &i7O+LENDAT+1,6:POKE LI TO4LENDAT+2, 0: END 

73) IF INKEYI3S=û THEN GOSUE 780 

Fi ;7 INKEY:6l:=b THEN GOSUE 830 

TEÿ IE fNKEV-3Ri=ù THEN GOSUE 1229 

Thÿ 1F INKEV:éI<G THEN GOGuk 13786 


174 GTI sûû 

78{ 

750 ROUTINE ENVERGE 

SûC 

BIO FAR I=1 :0 BiULIGIL I EQINENT I 

259 FOR Jzt T0 B:FOR Izt F0 BEF CARII di2û FHEN CARII die ELSE CAR(I di 
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=( 

830 IF CAR(I,di=1 THEN VLIG(J)=VL16(J)+2* (8-1) 

B40 NEXT !,J 

850 FOR J=1 TO 8:FOR 1=1 TD 8 

B60 LOCATE #1,1+1,J+1:1F CAR(I,J)=1 THEN PRINT #1,CHR$(132) ELSE PRINT #1 
,CHR$ (129) 

870 IF CAR(I,J)=1 THEN COUL=1 ELSE COUL=:2 

880 PLOT 408+(1+1244,278+16-2#(J+1) ,COUL:PLOT 408+(1+1)#4+2,278+16-2# (+1 
},COUL:PLOT 550+(1+1)#2,278+16-2#(J+1) ,COUL 

890 NEXT [1 

800 IF FLAG=I OR FLI=1 THEN RETURN 

910 GOSUB 1190 


920 RETURN 

930 ” 

540 ‘ ROUTINE “MODIFIER” 
930 : 


960 SUSUB 1070 

970 PRINT CHR$(7) 

980 CLS:LOCATE 10,2:PRINT'ENTREZ VOS VALEURS," 

990 FOR I=1 TO B:LOCATE #2,6,I+1:PRINT#2,"  "iLOCATE #2,6,1+1: INPUT #2, 
MRQVLIG(TISIF VLIG(I3<O OR VLIR(I) 2295 THEN I=1-1 

1000 NEXT I 

1010 GOSUB 1190 

1920 FOR J=1 TO B:LIGS=BINS(VLIG(J)5:FOR I=1 TO LEN(LIGS):PT=VAL(MIDS(LIE 
$,1,11):CAR(B-LEN(LIG$)+I,J)=PT:NEXT I,J 

1030 FLAG=1:GOSUB 850:FLAG=0 

1040 LOCATE 2,2:PRINT CHR$(137);" REDEF'CAR "yCHRS(198):" "AiCHRS(164)+"1 
985 St';CHR$(139); "phane CLOIREC":LOCATE 4,3:PRINT STRINGS(9,134) 

1050 GOSUB 1190 

1060 RETURN 

1070 

1080 ‘ ROUTINE ‘EFFACE” 

1090 ‘ 

1100 ERASE VLIG,CAR 

1110 FOR I=1 TO 8:LOCATE #1,2,/+1:PRINT#I,STRINGS$(8,129):NEXT ! 

1120 LOCATE #3,1,7:PRINT#3,SPACES$ (48) 

1130 PLOT 398,266,1:DRAUR 0,32: DRAWR 4b,0:DRAHR 0,-32:DRAWR -66,0 

1140 PLOT 528,266,1:DRANR 0,32: DRAWR 64,0: DRAHR 0,-32:DRAWR -64,0 

1150 PLOT 414,274,3:DRAWR 34,0: DRAWR 0,18: DRAUR -34,0:DRAWR 0,-18 

1160 PLOT 352,274: DRANR 18,0:DRANR 0,18:DRAHR -18,0:DRAWR 0.-18 

1170 IF FLizi THEN RETURN 

1180 DIM CAR(8,8) .VLIG(8) 
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1190 AMIN=2: YHAN=9: YMIN=2: YMAX=9 + A=2: Bs22 X22: Ve: LOCATEM VIF CARUI-1, 
V=1)=1 THEN PRINTHLQCHR#(131) ELSE PRINT #1,CHR#(130) 

1200 FOR Is1 TO BELOCATE #2,2,1+1:PRINT 42,CHR$ (136) :MIDSISTRS (1) ,2) :CHRS 
(35): SPCU4-LEN(STRS(VLIBIL)) 1): STRS(ULIGCI)) NET 

1210 RETURN 

1220 ‘ 

1230 ‘ ROUTINE ‘MIROIR’ 

1240 

1250 FLIsCLS:LDCATE 12,22PRINT' FONCTION EN COURS":PRINT CHRS(7) 

1260 GOSUB 1110:ERASE VLIS 

1270 DIM CARI (8,8) ,VLIG (8) 

1280 FOR J=1 TO 8:FOR I=1 TO B:CARL(I,JI=CAR(9-I,J):NEXT I,] 

1290 FOR J=1 TO 8:FDR I=1 TO B:CAR(I,J)=CARLCI, JD: NEXT 1,2 

1300 ERASE CAR! 

1310 GOSUB 850 

1320 FOR J=1 TO B:FOR I=1 TO B:IF CARII,J)=1 THEN VLIG(J)=VLIB(J)+2" (8-1) 
1330 NEXT 1,0 

1340 B0SUB 1190 | | 
130 LOCATE 2,2:PRINT CHRS(137)3" REDEF'CAR “:CHRS(138):" ":CHRS(164)+"1 
985 St":CHRS(139);"phane CLOIREC":LOCATE 4,3:PRINT STRING# (9,134) 

1360 FL1=0 

1370 RETURN 

1380 ‘ 

1390 * ROUTINE ‘5YMEOL‘ 

1400 

1410 CLS:LOCATE 12,2: PRINT"SYMBOL EN COURS"+CHRS (7) 

1420 I=1:IF ADR=#7000 THEN LENDAT=32 

1430 PDKE ADR, 33 

1440 POKE ADR+#1,0 

1450 POKE ADR+2,NUMLIG 

1460 POKE ADR+3,0 

1470 POKE ADR+4,207 

1480 POKE ADR+5, 32 

1490 POKE ADR+6, 25 

1500 POKE ADR+7,NUHSYHB 

1510 FOR BC=ADR+B TO ADR+29 STEP 3 

1520 POKE BC,44:POKE BC+1,25:POKE BC+2, VLIG(I) 

1530 -1=1+#1 

1540 NEXT BC 

150 POKE ADR+32,0 

1560 ADR=ADR+33 

1570 NUMLIG=NUML1G+1 
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1580 NUMSYMB=NUMSYMB+1 

1590 LENDAT=LENDAT+33 

1600 FOR att=1 TD {O00:NEXT att 

1610 LOCATE 11,2:PRINT'EFFACEMENT (O/N) ?":IF INKEY(34)=0 THEN GOSUB 110 
Ô ELSE IF INKEY(46)()0 THEN 1810 

1629 LOCATE 2,2:PRINT CHR$(137):" REDEF'CAR ":CHR$(138)5"  ":CHR$(1643+"1 
985 St":CHR$(139):"phane CLOIREC":LOCATE 4,3:PRINT STRING$(9,134) 

1630 RETURN 

1440 ‘ 

1690 ‘ IMPLANTATION OÙ L.M, 

1660 ‘ 

1670 RESTORE 1770 

1680 FOR BC=&8000 TO &BO00+11 

1690 READ C$:C=VAL("&"+CS$) 

1700 POKE BC.C 

1710 NEXT 

1720 P$=HEX$ (LENDAT) 

1730 IF LEN(P$){>4 THEN P$="0"+P#:G0TO 1730 

1740 POKE &kB007, VAL ("&"+RIGHTS(P$,2)) 

1730 POKE &B8008,VALI"&'+LEFTS(P$,2)) 

1760 RETURN 

1770 DATA 21,00,70,11,70,01 

1780 DATA 01,00,00,ED,B0,C9 

1790 ‘ 

1800 ‘  INSTRUCTIONS 

1810 ‘ 

1820 MODE 2:[NK 1.0 

1830 LOCATE 16,1:PRINT'REDEF CAR":LOCATE 16,2:PRINT STRINGS (9,133) 

1840 PRINT:PRINT: PRINT: PRINT"  Redet'car est, conme son nor l'indique, u 
n redefinisseur de caracteres, Il vous permettra de creer facilement to 
us les types de svaboles graphiques dont vous pourrez avoir besoin dans 
vos propre programmes,‘ 

1850 PRINT:PRINT:PRINT" Voici les commandes que cet utilitaire met a vo 
tre disposition:" 

1860 PRINT:PRINT SPC(10):"- EFFACE : vide le caractere qui etait a l'aff 
ichage” 

1870 PRINT SPC(10);"- INVERSE : produit une image inversee du caractere d 
e travail" 

1880 PRINT SPC(10);"- MODIFIE : permet de taper les codes d'un syabole po 

ur #odification" 

1890 PRINT SPC(10):"- MIROIR : retourne le caractere de travail" 

1900 PRINT SPC(10):"- SYMBOL : stocke le caractere de travail en menoire 


1510 PRINT SPC(10);"- QUITTE : arrete le programne et affiche les caract 
eres avant ete":PRINT SPC(22):"stockes avec la fonction ‘SYMBOL'" 
1920 LOCATE 1,25:PRINT'Anpuvez sur une touche pour retour au progranne.., 


u 


1530 CALL KBBIB:CALL BRIE 
1940 RETURN 


TRUCS ET ASTUCES 


Gérard MATTERN — 92 VANVES 


Sous l’article MIRAGES de Denis BOURQUIN, j'ai cru voir, dans le pre- 
mier programme, un ‘’déplombeur'’.. ou je ne m'y connais guère. Ce 
cher Denis s'est cependant beaucoup fatigué, car on peut faire la même 
chose en plus court, ...même beaucoup plus court. Voici le procédé : 
Après initialisation de la machine (SHIFT CTRL ESC), tapez les POKE 
suivants dans l'ordre : 


POKE &ACO3,&AE: 
POKE &AC0O2,&45: 
POKE &ACO1,&32... 


et c'est tout | 

Après un Bad, le programme est toujours en mémoire, et on peut le 
lister, le modifier et le sauvegarder, protégé ou non. 

Principe de fonctionnement : Après un LOAD, et au retour à READY, 
l'AMSTRAD vérifie si le programme qui vient d'être lu était protégé ou 
non en testant l'octet &AE4E et détruit tout s’il y avait protection. L'as- 
tuce consiste à intercepter le READY et à remettre à zéro l'octet en 
AËE45 avant le test. Ceci se fait par le renvoi en ACO1. 

Voilà, peut-être pourrez-vous ouvrir avec ca la rubrique ‘Trucs et Astu- 
ces”. En tout cas, voici un nouveau sujet de concours pour lequel je 
pense être bien placé : le meilleur utilitaire en une ligne (derni-ligne !) 
de Basic. 

Je termine par une question que je n'ai pas résolue : Si dans une rour- 
tine binaire on veut lire un fichier par CIOPEN (BC77H}, on lit bien sur 
cassette quand on fonctionne sur cassette (ITAPE), mais sur disque, 
il se passe des choses curieuses : 

— Si on exécute la routine par RUN (chargment disque et exécution), 
On lit la cassette | 

— Si on charge par LOAD, puis exécute par CALL (à l'adresse de départ 
de RUN), on lit le disque ! 

Vos lecteurs experts, auraient-ils une idée sur la question (bug ?). 


ATTENTION ! Ces 3 POKE ne sont valables que pour le CPC 464. 
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[4 | 


CARRÉ MAGIQUE 


Vannary TEA 


V2 aimez jouer avec les nombres ? Voici un programme capable de 
générer des carrés magiques. Comment ? Vous ne connaissez pas ? 
Essayez pour voir | 


Un carré magique est un carré divisé en cellules dans lesquelles les nombres 
entiers à partir de 1 sont arrangés de telle manière que les sommes de 
chaque ligne, de chaque colonne et de chaque diagonale soient égales. 
Ce programme vous calcule tous les carrés magiques d'ordre N impair dont le 
maximum est fixé à 91. En effet, à partir de 93, la mémoire déborde (Memory 
Full). Le tableau B (KL) est un tableau intermédiaire utilisé pour le remplissage 
des cases par des nombres T qui sont transférés au fur et à mesure dans le 
tableau A (I, J) après vérification que ladite case est bien “inoccupée” ; dans 
le cas contraire, il faut le mettre ailleurs (voir organigramme). 

L'impression du carré magique se fait en alignement par lignes et colonnes 
uniquement jusqu'à la dimension 14 ; au delà, comme il est impossible 
d'imprimer toutes les colonnes sur une même ligne, il est donc affiché ligne 
par ligne. D'autre part, il y a possibilité de vérifier la fiabilité du carré magique 
affiché. 

La durée de calcul d'un tableau 91 x 91 est d'environ 5 minutes, 


130 ” 

140 CLS : MODE 0 

190 LOCATE S,10:PRINT STRING$118,CHR$1(210)} 
160 LOCATE 3,11:PRINT STRING$(1,CHR$(211)) 
170 LOCATE 18,11:PRINT STRINGS(1,CHR$(209)) 
180 LOCATE 3,12:PRINT STRING$(1,CHR$(211)) 
190 LOCATE 18,12:PRINT STRING$(1,CHR$(209)) 
200 LOCATE 3,13:PRINT STRINGS(1,CHR#(211)) 
210 LOCATE 18,13:PRINT STRINGS(1,CHR$ 1209) ) 
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220 LOCATE 3,14:PRINT STRINGS(1.CHR$(211)) 

230 LOCATE 18,14:PRINT STRINGS(1,CHR$ (2091) 

240 LOCATE 3,15:PRINT STRINGS(1,CHR$(211)) 

230 LDCATE 1B,1S:PRINT STRING$ (1 ,CHR$(209)) 

260 LOCATE 3,16:PRINT STRINGS(16,CHR$ (208)) 

270 LOCATE 4,13:PRINT CHR$(67)+CHR$ (85) +CHRS (82) +CHRS$(82)+CHR$(69)+"  "+C 

HR$ (77 E4CHRS (65) +CHRS (71 +CHRS (73) +CHR$ (81) +CHR£ (85) +CHR$ (89) 

280 FOR F=1 T0 1200 : NEXT F 

290 ‘ 

300 

310 CLS : MODE 2 

320 DEFINT A-M,0-2 

330 PRINT:PRINT:PRINT: PRINT 

340 PRINT" ---) ENTREZ LA DIMENSION QU CARRE MAGIQUE :":: INPUT N 

350 PRINT 

360 IF NOINT(N) THEN PRINT CHRSU7):PRINT" # LA DIMENSION DU CARRE MAGIQU 
E DOÏT ETRE UN NOMBRE ENTIER NATUREL, DESOLE !“:G60SUB 1740:60T0 310 

370 IF N&3 THEN PRINT CHR$(7):PRINT" * LE CARRE MAGIQUE NE PEUT EXISTER 0 
UE POUR UNE DIMENSION SUPERIEURE À 2":60SUB 1740:60T0 310 

380 IF N291 THEN PRINT CHR$(7):PRINT" # IL EST IMPOSSIBLE DE FAIRE LE CAL 
CUL POUR UN CARRE MAGIQUE D'ORDRE SUPERIEUR À 91, CAR LA 
MEMOIRE DEBORDE, VRAIMENT DESOLE !":G0SUB 1740:607T0 310 

390 A=INT(N/2) 

400 IF N/2=Q AND N(=91 THEN PRINT CHR$(7I:PRINT" # JE NE TRAITE QUE DES C 

ARRES MAGIQUES D'ORDRE IMPAIR, DEGULE !":60SUB 1740:6070 310 

410 MEN+] 

420 DIM AIN,N),B(M,M) 

450 ‘ 


490 NEXT d : NEXT I 
300 


520 ‘ 

530 FOR K=i TO M 
540 FOR Li TO K 
550 BK,L)=0 
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960 NEËXT Le NEXT K 


590 ‘ 

600 PRINT: PRINT 

610 FOR Fz=1 TO N:NEXT F : PRINT" »)) PATIENCE S.V,.P., JE CALCULE <<< " 
620 PRINT: PRINT 

630 T=0:1=0:J=0:k=0:L20 
b40 K=CINT(N/2) 

b50 L=INTIN/2} 

b60 K=K+i 

b70 L=L+i 

680 T=T+i 

690 BIK.LI=T 

700 IF KDN THEN GOTO 740 
710 IF LON THEN GOTO 730 
720 [=K : dJ=L : GOTO 770 
730 I=K : d=M-N : GOTQ 770 
740 IF LoN THEN GOTD 740 


750 IsM-N : J=L : GOTO 770 
760 IEM-N : JEN 

770 IF A(1,J)=0 THEN G0TO 820 
780 IsI+i 


790 IF IN THEN I=H-N 
800 IF J>=2 AND JCN OR LEN THEN J=)-1 

810 GOTD 770 

820 A(I,d)=B(K,L) 

830 CPT=CPT+ 

840 IF CPTCDN*2 THEN kz1 : L<J : GOTO 660 
850 PRINT: PRINT 

860 IF N)13 THEN GOTO 1080 

870 


890 ” 
900 CLS : MODE 2 

910 PRINT TAB(18)"#x#k#4#x CARRE MAGIQUE D'ORDRE 2" NS "He" 
920 PRINT: PRINT: PRINT 

930 D=0 
940 FOR I 
950 FER J 


= 
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960 D=D+] 

970 PRINT TAB(S3#D) A(I,J) ; 
989 D=D+] 

990 NEXT J 

1066 D=0 

1010 NEAT I 

1020 GOTO 1180 


A IMPRESSION DU CARRE MAGIQUE D'ORDRE SUPERIEUR QU EGAL À 15 
1050 ‘ 

1060 PRINT CHR$(7): PRINT'POUR UN CARRE MAGIQUE D'ORDRE SUPERIEUR À 13, I 

L'EST IMPOSSIBLE D'AFFICHER TOUTES LES COLONNES DU CARRE MAGIQUE SUR 

UNE MEME LISNE. AUSSI, ON SE PROPOSE DE L'AFFICHER LIGNE PAR LIGNE, ":605 
U 1740 

1970 PRINT:PRINT:PRINT 

1080 CLS : MODE 2 

1090 PRINT TAB(I8i "##xkt#xt CARRE MAGIQUE D'ORDRE : "Ni "arte" 

1100 PRINT: PRINT: PRINT 

1110 FOR I:1 TO N 

1120 PRINT'LIGNE “ils "à 

1130 FOR Jd=i TON 

1140 PRINT A(],ÿ); 

5190 NEXT J 

1160 PRINT:PRINT: PRINT 

1170 NEXT [ 

1180 PRINT:PRINT:PRINT:PRINT" ---} VOULEZ-VOUS EFFECTUER UNE VERIFICATION 
DE CE CARRE MAGIQUE (O/N) "5: INPUT R$ 

1190 IF R$(>"0" AND R$C)"o" AND RSC)"N" AND R$<"n" THEN PRINT CHR$(7):PR 
INT:PRINT'ERREUR !!! REPONDEZ PAR O0 OU N':G0TQ 1180 

1200 IF R$="N" OR R$="n" THEN GOSUB 1670 : GOTO 1610 

1210 PRINT: PRINT 

1220 CLS + MODE 2 

1230 PRINT TAB{10) "---- LA SOMME DE CHAQUE LIGNE DU CARRE MAGIQUE ----" 
1240 PRINT:PRINT: PRINT 

1250 FOR I=1 TO N 

1260 FOR J=i TO N 

1270 S'=8!+A(T,d) 

1280 NEXT J 

1290 PRINT:PRINT TAB(IG) "LIGNE "sli"s  GOMME =";5! 

1300 S1=0 

1319 NEXT I 
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1320 PRINT:PRINT:PRINT:PRINT 

1530 GOSUB 2040 

1340 CLS : MODE 2 

1390 PRINT TAB(10) "---- LA SOMME DE CHAQUE COLONNE DU CARRE MAGIQUE ---- 


1360 PRINT: PRINT: PRINT 

1370 FOR J={ TO N 

1380 FOR I=1 TON 

1390 S12S1+A(I,1) 

1400 NEXT ! 

1410 PRINT:PRINT TAB(I6) "COLONNE "ids"s SOMME =":51 

1420 5!=0 

1430 NEXT J 

1440 PRINT: PRINT: PRINT 

1450 G0SUB 2040 

1460 CLS : MODE 2 

1470 PRINT'--- LA SOMME DE CHACUNE DES 2 DIAGONALES PRINCIPALES DU CARRE 
MAGIQUE ---" 

1480 PRINT:PRINT:PRINT 

1490 FOR I=1 TO N 

1500 J=I 

1510 S'2S14A(I,d) 

1520 NEXT I 

1930 PRINT:PRINT TAB{103 "SOMME DE LA 1£RE GIAGONBLE :":61 

1540 S'=0 

1550 FOR IN TO 1 STEP -1 

1940 J=] 

1570 S'=SI+A(I,1) 

1580 NEXT I 

1590 PRINT:PRINT TAB(10) "SOMME DE LA 2EME DIAGONALE : "36! 

1600 GOSUB 1670 

1610 PRINT:PRINT:PRINT" 222) VOULEZ-VOUS FAIRE UN AUTRE CARRE MAGIQUE (0/ 
N) ":: INPUT A$ 

1620 IF A$<)>"0" AND A$<>"o" AND A$C)"N" AND A$C)"n" THEN PRINT CHR#(7):PR 
INT: PRINT'ERREUR !!',REENTREZ O OÙ N°: GOTO 4610 | 
1630 IF A$="0" OR Af="0" THEN RUN 

1440 PRINT: PRINT 

1650 END 

1660 PRINT:PRINT 

1670 GOUS-PROGRAMME DE REINITIALISATION DES VARIABLES ----- 


1690 ERASE A,B 
1700 RETURN 


1730 ‘ 
1740 SYMBOL AFTER 30 

1750 SYMBOL 128.63,63,33,33.1,1,1,1 

1760 SYMBOL 129,252,252,132,132,128,128, 128,128 

1770 SYMBOL 130,1,1,1,1,3,3 

1780 SYMBOL 131,128,128,128,128, 192,192 

1790 SYMBOL 132,15,15,112,112,224,224,224, 224 

1800 SYMBOL 133,224,224,54,56, 28,28, 28,28 

1810 SYMBOL 134,224,224,112,112,15,15 

1820 SYMBOL 135,28,28,56, 54,224, 224 

1830 SYMBOL 136,56,58,56,56,56,56,56,56 

1840 SYMBOL 137,28, 28, 28,28, 28,28, 28,28 

1850 SYMBOL 138,56,54,56,56,15,15 

1860 SYMBOL 139,28,28, 28,28, 240,240 

1870 SYMBOL 140,31,31,112,112,224,224, 224,224 

1860 SYMBOL 141,240,240, 28,28 

1890 SYMBOL 142,224,224,112,112,31,31 

1900 SYMROL 143,0,0,28,28,240, 240 

1910 SYMBOL 144,56,58,56,56,56,56, 63,43 

1920 SYMBOL 145,28, 28,28, 28, 28,28, 252,252 

1930 SYMBOL 148,56,56,56,56,56, 56 

1940 SYMBOL 147,28,28,28,28, 28,28 

1950 SYMBQL 148,255,255,56,54,56, 57,63, 83 

1960 SYMBOL 149,252,252,12,12,0,128, 128,128 

1970 SYMBOL 150,57,58,56,56, 255,255 

1980 SYMBOL 151,128,0,12,12,252, 252 

1990 SYMBOL 152,1,3,6,12,24,48,96, 192 

2000 SYMBOL 153,192,96,48,24,12,6,3,1 

2010 5YMBOL 154,0,0,0,0,0,0,0,0 

2020 SYMBOL 156,128,192,96,48,24,12,6,3 

2030 BYMBOL 157,3,6,12,24,48,96, 192,128 

2040 PRINT:PRINT 

2050 LOCATE 33,23:PRINT CHR$(152)3:PRINT CHRS(154)3:PRINT CHRS(128)::PRIN 
T CHRS(129);2PRINT CHRS(132);: PRINT CHR$(133):2PRINT CHR$(136):: PRINT CHR 
$(137):2PRINT CHR$(140):;:PRINT CHRS(141)52 PRINT CHR#(144)::PRINT CHR$(14 
S)::PRINT CHR$(148)::PRINT CHR$(149) 

2080 LOCATE 47,23:PRINT CHRS(154)::PRINT CHR (196) : 
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2070 LOCATE 33,24: PRINT-CHRS(153)3;:PRINT CHR#(154)::PRINT CHR$(130);:PRIN 
T CHRS(ISII SE PRINT CHRSCISAÏ SPRINT CHAS(135)::PRINT CHRS(138);:PRINT CHR 
$(139);:PRINT CHR$ (142); PRINT CHR$(143);2PRINT CHRS(146):: PRINT CHR$(147 
JH3PRINT CHR$(190):PRINT CHR$(151); 

2080 LOCATE 47,284:PRINT CHR$(154)::PRINT CHR$ (157): 

2090 IF INKEY$="" THEN GOTO 2690 

2100 RETURN 
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MAZE 


G. MANKOWSKI 


\/2° êtes enfermé dans un labyrinthe de 10 étages, dont vous devez 
sortir au plus vite. La porte de sortie est fermée par 3 cadenas 
commandés par des clés rangées dans des coffres répartis sur chacun des 
dix étages. 

Vous avez deviné ? Votre travail consiste à retrouver les 3 clés, mais chaque 
coffre n'en contient pas forcément une ! Pour ouvrir les coffres, il faut d'abord 
trouver la combinaison de 5 lettres. Pour corser le tout, vous êtes poursuivi par 
des fantômes malicieux, qui vous subtilisent les clés pour les remettre à leur 
place, dans les coffres. Le reste de la règle du jeu est énoncé parle programme. 
À vos claviers | 


HN LL DES ELET SZ CETTE EEE TD TS 


20 ‘+ MATE + 
30 ‘+ pour + 
40 ‘+ AMSTRAD CPC 464 + 
30 ‘x par Û 
60 ‘+ G, MANKOWSKI } 
10 ‘+ mai 1985 + 
80 MITITIIIITITIITIIITTTI1) 
9Q MODE ! 


100 DEFINT À-2 

110 CLS:LOCATE 1,10:PRINT “Jouez-vous sur un ecran monochrome ou  couleu 
r (M/C) 7" 

120 R$2UPPERS(INKEYS):1F R$="M" THEN 140 ELSE IF R$<)"C" THEN 120 

130 IF R$="C" THEN 150 

140 BORDER 1:INK O,12INK 1,24: INK 2,13:INK 3,8 

150 np=! 
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160 “HREIERAIHENÉEMNENESEEEEEES 
170 ‘##+ caracteres redefinis ##4 

180 'HRRÉSERSERHEISEEIERÉAIEESSES 

190 SYMBOL AFTER 220 

200 SYMBOL 244,28,28,9,62,92,28,20 ,20 

210 SYMBOL 245,24,284,255,126,60,60,36,36 

220 SYMBOL 246,126,129,189,1465,165,189,129,12b 
230 SYMBOL 247,31,17,31,4,4,60,12,60 

240 SYMBOL 248,0,253,84,84,84,84,253,0 

250 SYNBOL 249,255,195,195,195,199,195,193,259 
260 SYMBOL 250,96,68,148,164,169,146,68,4b 

270 GSYMBOL 251,28,34,73,149,37,41,34,28 

280 SYMBOL 252,56,68,146,169,164,148,68,56 

290 SYMBOL 253,28,14,41,37,149,75,34,28 

300 SYMBOL 221,290,0,239,0,253,0,299,0 

310 SYMBOL 222,299,0,63,0,15.0.3,0 

320 SYMBOL 223,0,0,3,0,13,0,68,0 

330 SYMBOL 224,255,0,292,0,240,0,182,0 

340 SYMBOL 225,0,0,192,0,240,0,252,0 

350 SYMBOL 226,0,1,8,1,1,1,0,0 

360 SYMBOL 227,0,119,85,117,85,119,0,0 

370 SYMBOL 228,0,119,69,117,21,119,0,0 

380 SYMBOL 229,0,119,21,117,69,119,0,0 

390 SYMBOL 230,0,119,83,117,21,119,0,0 

400 SYMBOL 231,0,119,69,117,85,119,0,0 

410 SYMBOL 232,0,119,21,117,21,119,0,0 

420 SYMBOL 233,299,299,192,299,299,5,299,239 
430 GOSUR 4SI0:REN *## instructions ##* 

440 CLS:PEN | 

450 LOCATE 1,10:PRINT ‘Le niveau de difficulte choisi (1,2 ou Si" 


460 LOCATE 1,12:PRINT ‘deternine le nombre de coftres(s,4 ou 31" 


470 LOCATE 1,14:PRINT " qui contiendront une clef” 
480 LOCATE i,18: INPUT " Quel est votre choix"snidi 
490 IF nidi=! OR nidi=2 ÛR nidi=3 THEN 500 ELSE 480 
500 GOSUB 5390 

510 ORIGIN 0,0:CLS 

520 WINDOW #1,1,29,1,25 

530 HINDOW #2,27,27,19,29 

540 HINDON #3,27,40,4,7 

550 WINOOH #4,27,40,1,3 

560 HINDOW #5,27,40,9,14 

570 HINDOW #7,29,39,15,24 
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580 DIM L#(5):DIM FX(9):DIM FY(5) 

560 DIM co!(73):DIM si!(73) 

600 DEG:FOR i=0 TO 72 

bi co!(i}=C05(5#i) 

620 sil(i)=SIN(5#i) 

b30 NET i 

640 INK 0,0:BDRDER O:PAPER 0 

650 IF R$="M" THEN 670 

EG INK S,S3:INK 1,9:60T0 680 

670 INK 3,9:INK 1,24 

bBQ PAPER #4,3:CL5 #4:PEN L:LOCATE #4,2,2:PRINT #4,CHR$ (250); CHR$(251):"M 
ESSAGES":CHR$ (252) : CHR$ (253) | 
690 PAPER #3,3:CLS HS: PRINTHS:PRINT #3," VEUILLEZ PATIENTER" 
100 xx=2ivv=2ixxp=2:vyp=2:fois=0:etsor=INT (10#RND+1) 
710 RANDONIZE TIME:n=INT (10#RND+1) 

720 HRAEEEEEFEIINEENNEUSEREESS 

730 ‘++ generation Labvrinthes ++ 

TAÛD CAHASFENEUSEEEENENSEFEEEIEE 

790 DIM R(S,6,6}:DIM S(2,7,7):RANDOMIZE TIME 

160 FOR n=i T0 5 

770 FOR i=0 TO 5 

780 FOR j=ù T0 5 

790 Rimsi,}=INT(IO*RND+1) 

BOO NEXT Jj:NEXT i1:NEÂT 

810 FOR m=1 TO 2 

820 FOR i=0 TD 6 

950 FOR j=0 TO 6 

840 Sm,i,j)=INT(10#RND+1) 

850 IF S(m,0,j)<5 THEN 840 

86Q NEXT jiNEÏT 1:NEÏT @ 

BTO CHHFENÉENFÉNERHEÉHERERRERFES 

880 ‘** coordonnees escaliers *++# 

090 ‘HÉFEHANÉREEREEEERAFERERÉES 

900 DIM EX(19):DIM EY({S):RANDOMIZE TIME 

910 FOR i=i T0 {5 

920 EX(i)=2#(INT(IO#RND+2)):EV(i}=2# (INT (1O0#RND+2)) 
950 FOR j=0 TO i-1:1F ABS(EX(i)-EX(j))<3 AND ABS(EV(i)-EV(j)}<3 THEN 920 
840 NEÂT j 

990 NET i 

SOÛ HAERAEENERFENEEENEERRAEEES 

970 ‘+## coordonnees coffre *## 

D8Ù CAHHENFEENENERIÉAIAIRRESERES 
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990 DIM cox(10):DIM cov(10):RANDOMIZE TIME 

1000 FOR i=1 TO 10 

1010 cox(i)=2#(INT(12#RND+1))scov(i)=2# (INT (12#RND+1)) 
1020 IF coxliz4 AND coy(i)z2 THEN 1010 

1030 FOR j=1 TO 15 

1040 IF covii)(oEY(j) THEN 1060 

1050 IF coxti}=EX(j} OR cox(i)}=EX(j}+2 THEN 1010 
1060 NEXT j:NEXT i 

1070 GOSUB 3720:REM *+## coordonnees lettre code ##+ 
1080 DIM cle({0}:FOR i=i TO 6-nidi 

1990 j=INT(LO#RND+{) 

1100 IF clelj)=0 THEN clelj)={ ELSE 1090 

1110 NEXT 

1120 CLS #3 


1130 PAPER #5,01CLS #S:PEN 1:FOR i=1 TO S:LOCATE #9,1,1:PRINT #5,CHR$ (221 


J'LOCATE #5,14,1:PRINT #5,CHR$(221) :NEAT 


1140 LOCATE #5,2,1:PRINT #95,"RECORD: ":LOCATE #5,2,3:PRINT #5, "TEMPS: "2 LOC 


ÂTE 45,2,9:PRINT #5,"CLEFS:" 


1130 LOCATE #5,9,1:IF record=0 THEN PRINTHS,"----- " ELSE PRINT#S USING" ## 


###"srecord 

1160 CHHASEEERENÉÉERFEEEES 

1170 ‘### choix couleurs +## 

LIB0 HARHEMEEANENSERREERERE 

1190 CLSH#S:ELS #1: IF R#="M" THEN 1370 

1290 cn=n MOD 4 

[210 ck=-13#(cn=0)-9#icn=1)-10#(cn22}-12#(cn<5) 
{220 BORDER ck: INK O,ck 


1236 ON n GOTO 1240,1250,1260,1270,1280,1290,1300,1310,1320,1330 


1240 INK 1,0 INK 2,4:INK 3,13:60TD 1370 
1250 INK 1,0:INK 2,4:INK 3,13:G6070 1370 
1260 INK 1,0:INK 2,4: INK 3,15:G60T0 1370 
1270 INK 1,0:INK 2,4:INK 3,16:6070 1370 
1280 INK 1,3:INK 2,1:INK 3,0:60T0 1370 

1290 INK 1,3:INK 2,0:INK 3,12:G6070 1370 
1300 INK 1,3:INK 2,0:INK 3,9:60T0 1370 

1310 INK 1,1:INK 2,4:INK 3,11:6070 1370 
1320 INK f,1:INK 2,4:INK 3,13:60T0 1370 
1330 INK 1,1:INK 2,12:INK 3,4:G0T0 1370 
1340 “HREFFEFHIHRENHEN 

1350 ‘*## choix du code ## 

1360 ‘HHAHHHENHAERNHÉERS 
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1370 RANDOMIZE TIME:z=INTISO#RND) :RESTORE 6120 
1380 FOR i=-4 TO 5#(2-1}:REÂD vi NEÏT ji 
1390 READ ul ,u2.us,ué ui 
1400 code$=CHR$ (uL'+CHRS (2) +CHRS (u33 +CHRS (ué ; +CHR$ (u5) 
1410 codef=LOWER$ (rodof) 
1420 FOR Lal 70 SiL$(H)=MIN#icodes.L,I}ENEXT L 
1430 xxexx+2 
1440 ‘+## indicateur d'otage +## 
1450 FOR b=1 TG {O:LOCATE #2,1,b:PRINT #2,CHRS(24S3:NEÏT b 
1460 LOCATE 4#2,1,11-np:PRINT #2,CHR$ 1249; 
{470 LOCATE 42,1,11-n2PRINT #2,CHR$(143); 
1480 ne=n 
1É90 AHHEREHAEEHHEEE 
1500 ‘++# horloge #44 
1SIO CERN 
1520 DISPEN S:PAPER #7,2:CLS #7:LOCATE #7,S,1:PRINT #7 CHRS (226) ;CHR$ (227 
J'LOCATE #7,1,S: PRINT #7,CHR$ 1226) :CHR# (228) :LOCATE #7,10,3: PRINT #7.CHR$ 
{234 
1930 LOCATE #741,8:PRINT #7,CHR$ (226) :CHR$ (229) :LOCATE #7,10,8:PRINT #7,C 
DR AOE LOCATE #7,6,10:PRINT # ,CHR$ (230) 
1540 MRIEIN 556,%6 
Fi MOVE b2tco!10),62#e1!(0):FOR 121 10 72:0RAM b2#caliil,.42#s ti): NENT 


1540 MOVE 52#co!(0),52%ei!(O)1:FOR 121 T9 72:0RAM S2#coi (1 ,52#e1l(L)iNEXT 


Î 
1570 FOR t250 T0 330 STEP BO:MOVE 524005 (t) ,52*SINCtH: DRAM 62+C0S it} ,6245 
INCÉIINEXT tIORISIN O,U:ET 

1580 “HRRFERHEHEEREHEESENEAEESÉE 

1590 ‘+ construction labvrinthe * 

1600 HHFEESFHEESENTERSESERERERES 

1810 CLS #i 

1620 DI:FOR 1=0 TO B STEP 2:MOVE 1 ,0:DRAUR 0,398:MOVE 356-1,0: DRANR 0,398 
2MOVE O,i:DRAUR 398.0: MOVE 0,398-j:DRAUR 398,0:NEXT:EI 

1630 PEN !: FOR i=3 T0 23 STEP 2 

1646 FOR j=3 TO 23 STEP 2 

1650 LOCATE i,J:PRINT CHR$(I44) 

[660 NET j:NENT i 

1670 k=-(n=i OR n=6i-2+#(n=2 OR n27)3-3#(a=35 OR n=8i-4#{n=4 OR n=9;-5#(n=5 
OR n=iû) 

1680 FOR i=0 T0 5 

1890 FOR izû T0 5 
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1700 x=16#(22-4#1)+7 

1710 v=ib#(22-4#))+7 

1720 ON Rik,i,1:) GOSUB 2520,2930,2940,2950,2960,2570,2980,2990,3000,3010 
1730 NEXT j:NEXT i 

1740 k=-(n20)-(n25) 

1750 FOR is0 T0 6 

1760 FOR j=0 TO 6 

1770 x=16#(24-4#j)+7 

1780 v=ib#(24-4#%))+7 

1790 ON Sk,i,3) GOSUB 2920,2530,2940,2950,2960,2970,2980,2990,3000,J010 


1800 NEXT j:NEXT i 

1810 ON ne GOSUB 3410,3420,3430,3440,3450,3460,3470,3480,3490,3500 

1820 GOSUB 3510 

1839 PEN 1:LOCATE coxuin) ,covin:PRINT CHR$(2d6; 

1840 PEN S:FOR j=1 TO S:LOCATE code(n, ji ,codevin,i): PRINT CHR$ 1643: NEXT 
} 

1850 IF n=etsor THEN forssfoistl ELSE 1910 

1860 IF fois=i THEN GOSUR 3970 

1870 PEN L:LOCATE #i,xcor ,vsor:PRINT #1,CHR$ (233) 

1880 “HHXREEEEEREEREEEUNNENRERS 

1999 ‘++ coordonnees fantones ## 

1900 ‘HHREEEAREHENEEEEEERHEEAREE 

1510 RANDOMIZE TIME 

1920 FX(1)=2#INT(9#RND+4):FY (1322 

1930 IF FX(i)=cox(n) THEN 1920 

1946 FOR j=1 TO 5:iF FK(l)=codexin,j) THEN 1920 ELGE NEXT j 
1950 FY(2)=2:FY(2)=2#INT(10#RND+2) 

1960 IF FY(2)=coy(n) THEN 1950 

1970 FOR j=1 TO 5:1F FY(2)=codeyin,j) THEN 1990 ELSE NEXT ; 

1980 FK(3)=24:FY(3)22#INT (1OKRND+2) 

1990 IF FY(Si=cavin) THEN 1980 

2000 FOR j=1 TO S:1F FY(S)scodevin,i} THEN {980 ELSE NEXT i 

2010 FX(43=2# INT (12#RND+1}:FY143=24 

2020 IF F\(4)=cox(n) THEN 2010 

2030 FOR j<t TO 5:IF F(4iscodex(n,j) THEN 2010 ELSE NEËT : 

2040 FX(5)=2#INT(12#RND+L):FY (51:24 

2050 IF FA(S)=coxtn) OR F{(5}=F1(4) THEN 2040 

2060 FOR ii TO S2IF FXiS)=codesin,j) THEN 2040 ELSE NEXT j 

2070 PEN 2:F0R k={ TO S:LOCATE FACki,FY(k3: PRINT CHRSI245):NEXT k 

2080 pausez{:EVERY 50,2 GOSUB 2830 

2090 EVERY 100,1 GOSUB 2530 
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2106 SO=INT(TIME/300) :te=0:pausez0: tepeto=0 

. DIIO CÉESNISENIENIIEEHIFÉIEÉFEE 

2120 DI:PEN ! 

2130 LOCATE xxp,vyp:PRINT CHR$(128) 

2140 SOUND 1,150,5,9 

2130 LOCATE xx, yy:PRINT CHR$(244) 

2160 «xp=xx:yyp=yvtEl 

2170 xc=16#(xx-1}+7:yc=16#(25-vy)+7 

2180 IF pause=1 THEN n=INT(IO#RND+1)sxx2xx-2:tempsstenpst180:LOCATE 49,8, 
SPRINT #S,USING "##HH#':temps: 6070 1190 

2190 c$=INKEYS:IF c$="" THEN 2190 

2200 IF c$="P" OR c$="p" THEN GOSUB 3570 

2210 c=ASC(c$) 

2220 [IF c<240 OR c>243 THEN 2190 

2234 cezc-259 

2240 t2TEST(xc+ib#ice=3-1b#(cc24) ,yc-16#{ccz1i+1b#(cc=2)) 
2280 IF t={ THEN 2190 

2260 xtaxc-B#(cezli-B#(cez2}+24#(ccs3;-4Ü#(cczd; 

2270 tISTEST(xt ,ve-40sicez=1)+24#(cc22)-B#(ccz3)-B+(ccz4)} 
2280 t?2=TEST(xt,ve-38#(ccz=1i+26#(ccz2;-b#(ccz3i-b#{icczd)) 
2290 LS=TESTxt ve-dé#icc=1)+28#icc=2)-4#icce3)-4#ircsà); 
2300 tt=ti+26t2+34t3 

2310 IF tt=2 THEN 5050 

2320 If tt=5 THEN G0TO 4060 

2330 IF tt318 THEN G0T0 4170 

2340 IF tt=6 THEN FOTO 2190 

2340 JF tt=3 AND nbclez3 THEN GOTO 5460 

2360 IF ttz3 AND nbciet3 THEN GOTO 2120 

2370 FOR i=0 T9 4 STEP 2 

2380 t42TEST(xc-(2+i)*(ccst)-(2+i)#(ccz2)+(26+i)#(ccz3)-(32+i)#(ccsd) ,yc- 
So#ice=t)+28#(cc=2)-4#{cc=3)-4#(cc=4)) 

2390 [IF t4)0 THEN 2410 

2400 NEXT i:60T0 2460 

2410 xxs=xx-2#(cc=4)+2#{(cc=3) 

2420 yys=yy+2#(cc=1}-2#(cc22) 

2430 FOR i=i T0 5 

2440 IF (codexin,ii=xxs) AND (codeyin,i)=yys) THEN 2480 
2490 NEXT i 

2460 vy=yy+2#icc=t)-2#(cc=2) 

2470 xx=xx+2#{ccz3)-2#(ccz4):G0TD 2120 

2480 PEN 2:LOCATE xxs,yys:PRINT MID$(codef,i,1} 

2490 6070 2120 
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2500 CHYESÉAÉSERESSÉIENÉESÉELEE 

2510 ‘** deplacement fantone #+ 

2520 'EFHÉHIENSFEEMESREREEERRES 

2530 DL:IF pause=f DR pause=2 THEN 2790 

2340 FOR I=i TO S:A=INT (4xRND+1; 

2990 x#=16#(FX(I)-1)+7:vf=16#(25-FY(I)1+7 

2360 PEN 2:0N À EOTO 2570,2610,2650,2490 

2570 IF TEST(xf-20,vf})=1 THEN 2780 

2580 IF TEST(xF-24,vt+4)=1 AND TEST(xf-24,yf+65=0 THEN 2730 

2590 IF TEST(xF-24,vf+4)+TEST(xt-26,vF+4)4+TEST (x$-28,vf+4)#TEST(xf-30,v#+ 
4)20 THEN 2780 

2600 LOCATE FAULS,FY(I) 2 PRINT CHR$(128):FX(I)=FX(1)-2: SOUND 1,402,5,5:L0 
CATE FXCI),FY(I): PRINT CHR$(245):G0T0 2780 

2610 IF TEST(xf+20,yf}=1 THEN 2780 

2620 IF TEST(xF+40,vt+4)=1 AND TESTIx#+40,vf+b}=0 THEN 2730 

2630 IF TEST(xf+40,y#+h)+TEST(xf+32,y#+4)+TEST(xf+34,yf+4)+TEST(xt+36,vf+ 
4})0 THEN 2780 

2640 LOCATE FXCI),FY(I) :PRINT CHR$(128):FXUI)=FA (I) +2: SOUND 1,602,5,9:L0 
CATE FK(I),FY(I): PRINT CHR$(245):G0T0 2780 

2650 IF TEST(xf,vf+20)1=1 THEN 2780 

2660 IF TEST(x#+8,vf+36}=1 AND TEST(xf+8,y#+38)=0 THEN 2730 

2670 IF TEST(xf+8,v#+38)+TEST(xf+2,VF+SG)+TEST (x +4, V4 36) +TEST(xf+b,v#+3 
b)}0 THEN 2780 

26B0 LOCATE FAI) FY(IS : PRINT CHR$(128):FY(I5=FY(15-2: SOUND 1,602,5,31:L0 
CATE FX(I),FY{I): PRINT CHR$(245):G60T0 2780 

2690 IF TEST(xf,yf-20:=1 THEN 2780 

2700 IF TEST(xf+8,vf-28)21 AND TESTixf+B,vf-26)50 THEN 2730 

2710 IF TESTIxF+B,vf-26+TEST(xf+2,vf-2B)+TEST(x#+4,v#-28)4+TEST(x$+6,vf-2 
8)20 THEN 27B0 

2720 LOCATE FX{L5,FYCIS : PRINT CHR$(1283:FY(13=2FY(L)+2: SOUNG 1,602,5,3:L0 
CATE FXIL),FY(I): PRINT CHR$(245):G60T0 2780 

2730 IF nbcle=0 THEN 2780 

2740 LOCATE #54,nbcle+8,5:PRINT #5,CHR$(128) snbclesnbele-] 

27530 GOSUB S800:CLS #S:PRINT #3,"1 cle de moins" 

2780 ce=INT(IO#RND+1} 

2770 IF cletcei={ THEN 2740 ELSE cle(ce}=i 

2780 NEXT | 

2790 ET:RETURN 

2800 'HHÉAAYENERERRERÉRERRRIERSE 

2810 ‘+++ mouvement horloge +++ 

2820 'HRREAEEEHEREENEERENENEES 

2830 IF pause={ THEN 2870 
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2840 DEGitestet2 

2990 IF te<360 THEN 2870 

2860 pause={:tezÿ) 

2870 MOVE 536,66: DRAUR 52+#5INite;,526C0S(te; 

28B0 RETURN 

N'LIRMEZIICLLE TEL I IDC DEL Z LLC) 

2900 ‘+ construction labyrinthe + 

PLITIRETTTITICII TILL STILL 2 22) 

2920 MOVE x,v:DRAUR 32,0: MOVE x,v+2: DRAHR 32,0: RETURN 

2930 MOVE x V1 DRAUR 32,0:MOVE x 4v+2:DRAUR 32,0: MOVE x ,v: DRAMR -32,0: MOVE 
4, V+2:DRANR -32,6:RETURN 

2640 MOVE x, v:DRAUR 32,0: MOVE x v+2:DRAUR 32,0: MOVE x vs DRAUR 0,32: MOVE x 

+2,%:DRAMR 0,32: RETURN 

2950 MOVE x vs DRAUR 32,0:MOVE xv+2:DRAUR 32,0: MOVE x ,v:DRANR 0,-32:MQVE 
+2, vs DRAUR 0,-32: RETURN 

256ÿ MOVE x, ve DRAUR -32,0:MQVE x,v+2:DRAHR -32,0:RETURN 

2070 MOVE x, vi: DRAWR -32,02MOVE x ,v+2:DRAUR -32,0:MOVE x, v: DRAHR 0,32: MOVE 
X+2,V:DRAUR 0,32:RETURN 

2580 MOVE x,v:DRAHR -32,0:MOVE x,v+2:DRAMR -32,0:MOVE x ,v:DRAWR 0,-32:M0V 
E y+2,v:DRAUR 0,-32:RETURN 

2650 MOVE x ,ÿEDRAHR 0,32:MQVE x+2,v: DRAWR 0,32:RETURN 

3000 MOVE x,v:DRAUR 0,32: MOVE x+2,v:DRAUR 0,32: MOVE x ,v:DRAWR 0,-32: MOVE 

x+2,V:DRAUR 0,-32:RETURN 

3010 MOVE x, y: DRAUR 0,-32: MOVE x+2, y: DRAHR 0,-32:RETURN 

SOPQ CHAHENHEREEHHENEEREEE 

3030 ‘44 saut d'étage #+% 

JOAD CREHAREERRENEERERE 

3060 vysvv+2#(cez1i-2#(cc22) 

3060 xu=xx+2#(cez5)-2#(ccz4) 

3070 pause=fite=0:s1= INT (TIME 300: :tenosstempstei-co+teneto:LOCATE #5,8,3 
:FRINT #5, USING "##H': temps 

3080 ON n 6270 3090,3120,3150,3180.3210,3240,3270,3300,3330,3360 

3080 IF xxsEK Gt) AND yv=EY'1i THEN n22:6970 1176 

3100 IF «x=£%(2} AND vvzEf(25 THEN n=3:6070 1170 

V110 IF wxsEX (3) AND vvzEYi3) THEN n=4:60T0 1170 

3120 IF xx=EXt15 AND vv=EY(1 THEN nz1:60T0 1170 

S130 IF xx=EX 14) AND vv=EY(4) THEN n=3:60T0 1170 

3140 IF xx2E%153 AND vy=EY(Si THEN n=5:6070 1170 

3150 IF ux=2ES 8) AND vv=EY(6) THEN n=4:607T0 1170 

3160 IF xx=EX(2} AND vy=EY(25 THEN n=1:60T0 1170 

3170 IF xx=EX(4} AND vv=EY(4} THEN n=2:60T0 1170 
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3180 IF xx=EX(6) AND vy=EY (bi THEN n=3:6070 1170 

3190 IF ux=EX(8) AND vy=EY(8) THEN n=10:G0T0 1170 

3200 IF xx=Ef(3) AND vy=EY(3) THEN n=1:60T0 1170 

3210 IF xx=EX(7) AND yy=EY(7) THEN n=6:607T0 1170 

3220 IF uxzEX(11) AND vy=EY(1i) THEN n=8:G0T0 1170 

3230 IF uxcEX(5) AND yy=EY(5) THEN n=2:6970 1170 

3240 IF x<E(9) AND vy=EY(9) THEN n=8:6070 1170 

1250 IF xx=EK(7} AND yv=EY(7) THEN n=5:60T0 1170 

3260 IF vxzEX(135 AND vy=EV(13) THEN n=9:G60T0 1170 

3270 IF ux=EX(10) AND vv=EY(10) THEN nz=10:60T0 1170 

3280 IF «xsEX(14; AND vvzEY(14) THEN n28:80T0 1170 

3290 IF «xsEK(15) AND vvzEY(15} THEN n29:60TD 1170 

3300 IF «x=EX(9) AND vvzEŸ(5i THEN n=6:60T0 1170 

3310 IF #x=EK(11} AND vv=EY{li} THEN n=5:60T0 1170 

3320 IF vxcEftidi AND vvsE#(i4i THEN n=7:8070 1170 

3330 IF «xsEX(12) AND vv=EYi12) THEN n=10:6070 1176 

3340 IF xx=EX(135 AND vv=EY(135 THEN n=6:G60T0 1170 

3350 IF «x=ÉX (19) AND vv=EY{i5) THEN n27:6070 1170 

3360 IF xx=E#(8) AND vv=EY(8) THEN n=4:60T0 1170 

3320 IF ux=EK(10) AND vv=EY{t0i THEN n=7:6079 1170 

3380 IF vesEX(12; AND vvsEY{12) THEN n=9:6070 1170 

3390 G0TQ 1170 

VAOÛ 'ERYERAESSEIERSFÉRATEEE 

3410 PISE CL): P22EY (1): PISEX (2) 1 P42EY (2) 1 PSE (33 :PÈSEY (3) 2 RETURN 

3420 FI=EX(t):P2SEY C1): PISEX (4): PASEV (4): PSSEX (5) : PRSEY (5) 2 RETURN 

3430 P1=EX(4):P2=EY(b):P3=EN (4) :P4SEY (4): PS2EX (2) :PbSEY (2) 2 RETURN 

3440 PI=EX(6):P2=EV (8): P3=EX(B) :P4SEY (8) : PS2EK (3): PHEEY (3) : RETURN 

3490 PI=EY(7):P22EY(7):P32EN (11): P4<EY (11) sPSSEX (93 : PÉSEY (53 : RETURN 

3460 Pi=EX(7):P2=EV(7):P3=EX (13): PASEV (13): PS2EX (9) 2 POSE Y (9) : RETURN 

3470 PI=EX (10): P2=EY (10): PISEX (14): P4SEY (14): PS<EX (15): POSEY (13) 1RETURN 

3480 PI=EX (11): P2SEV (11): PI=EX (14): P4SEY (14): PS=EX (9) :P6=EY (9): RETURN 

3490 PLSEX (12): P22EY (12): PISE (13): P4ZEY (13) :PSSEN (15) 1 PSE Y (15) 2 RETURN 

3500 P1=EX(12):P22EY (42):PIsEX (10): PA=EV (10): PS=EX (8) :P6zEY (8) : RETURN 

3510 PEN L{LOCATE P1,P2:PRINT CHR$(248):CHR$(128):LOCATE P3,P4:PRINT CHR$ 
(248):CHR$(128):LOCATE F5,P6: PRINT CHR$(248) ;CHR$ (128) 

3520 DI:MOVE 165P1+7,16#(26-P9;+7:DRAHR -32,0:DRAUR 0,-32:DRAUR 32,0: MOVE 
164P347,16#(26-P4)47:DRAUR -32,0:DRAHR 0,-32:DRAUR 32,0:HOVE 16#P5+7,16+ 
(26-PEI+T:DRAUR -32,0:DRAUR 0,-32:DRAWR 32,0 

3530 MOVE 164P1+B,16+(24-P2)+8: DRAMR -31,0:DRAMR 0,-32:DRAWR S1,0: MOVE 16 

#P3+8,16#(26-P4) +8: DRAUR -31,0:DRAWR 0,-32:DRAMR 31,0:MOQVE 16+#P5+B,1b+(26 

=P6)+8:DRAUR -31,0:DRAUR 0,-32: DRAWR 31,02:E1: RETURN 
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3940 'HRRHÉSHIHHIIIT 

3590 ‘+++ percage +++ 

3560 HÉFHIFEHIFEETS 

3570 6OSUB 5760: CLS#3: PRINT #3," indiquer 13 direction de oercage’ 
3980 cf=INKEY#:IF c$="" THEN 3580 

3990 c= ASC(c#i11F cé240 OR c>243 THEN 3580 

3600 IF TEST (xc+20+(c2242)-20#(c2243) ,yc+20%(c=241)-20#1c2240))21 THEN 3 
80 

3610 tepe=[INT(IbFRND+S) stete+2*xtepe:tepeto=tepetottepe 

J620 GOSUB 5760: CLSR#S:PRINT#S," duree de percage: lsteper "sec, 


3630 ON c-235 GOTO 3640,3650,3660,3870 

3640 LOCATE xx,yv-L: PRINT CHR$(128): RETURN 

3690 LOCATE xx,yy+1:PRINT CHR$(128) :RETURN 

3660 LOCATE xx=1,vy: PRINT CHR$(128) : RETURN 

3470 LOCATE xx+tt,vy:PRINT CHR$(128) :RETURN 

3680 GOSUE S7É0:CLS#S:PRINT#3,"  percage irpossible":RETURN 

3ÉSO 'HAYFÉHENSERFISENRERERIESES 

3700 ‘+ coordonnees lettre code # 

YÉTURELCET ETC ETEE ETC 2222 

3720 DIM codext10.5):DIM codevii0,5} 

3730 FOR i<1 TO 10 

3740 FOR j={ TO à 

3750 codex(i,3i=2%{INT{I2#RND#I)psendevii,35= 2#{INT(12#RND+1; ; 

3760 IF codexii,j)z4 AND codeyvti,j)=2 THEN 3750 

3770 FOR k=0 TO 7-1 

3780 IF codexti,js=cadexti,k) AND codevti,)}=codevii,k) THEN 3750 

3790 IF codex(i,j)=cox(i) AND codeyli,j)=coyti) THEN 3750 

3800 ON i 6070 3810,3620,3830,3840,3850,3860,3870,3880,3890,3900 

810 IF codevti,j)=EV(1) OR codeyli,j)=EY(2) OR codeyti,j}=EY(3) THEN 375 
0 ELSE 3910 

3820 IF codey(i,J)=EV(1) OR codevii,j)=EY(4) OR codevli,j)=EY(5) THEN 375 
O0 ELSE 3910 

3830 IF codey{i,j)=EY(6) OR codey(i,j}=EY(2) OR codey(i,j)=EY(4) THEN 375 
Ô ELSE 3910 

3840 IF codevti,j1)=EY(6) DR codeyti,j}=EY(8) OR codeyli,j)=EV(3) THEN 375 
Q ELSE 3910 

5850 IF codeyli,j)=EY(7) OR codeyli,j)=EY(11) OR codevli,j1=EY(5) THEN 37 
0 ELSE 3910 

3860 IF codevli,j}=EY(9) DR codevii,j)=EY(7) OR codeyli,j}=EV(13) THEN 37 
30 ELSE 3910 

3870 IF codevii,};sEY(10) OR codevii,j)=EY(14} DR codev(i,j}=EY(19) THEN 
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3730 ELSE 3910 

3880 IF codevii,j}=EY($i OR codev(i,3}=EY(i4i OR codevli,j)=ÆEY(iii THEN 3 
750 ELSE 3910 

3890 IF codevti,j}=EY(125 OR codev(i,J)=EY{135 OR codevii,}?<EY(19i THEN 
3750 ELSE 3910 

3500 IF codevii,J}<EY(8r OR codev(i,j:<EY(10) OR codevui,pi=EYti2; THEN 3 
750 ELSE 3910 

3510 NEÏT k 

3920 NEXT j 

3530 NEÏT 1:RETURN 

LT TEL LILETDETPTTETIEITITET 

3550 ‘+++ porte de sortie +++ 

3960 'HFFAIERREHEENIFEEEEERSS 

3570 xsor=2*[NT(10*RND+2) :ysor=2#INT (10#RND+2) 

3980 IF xsor=coxletsor) AND vsor=covietsor) THEN 5970 

3590 FOR isi T0 S 

4000 IF xsor=codexietsor ,i) AND vsor=codevletsor ,i} THEN 3970 ELSE NEÏT 1 
4610 IF (xsor=Fi AND ysor2P2) OR ixsor=Pi+2 AND vsor=F2) THEN 3970 

4020 IF (xear=P3 AND vsor=P4) DR (xcor=P3+2 AND vsor=P4; THEN 3970 

4050 IF {xsor=P5 AND vsor=Po) OR (xsor=P5+2 AND vsor=Po) THEN 3970 

4040 RETURN 

4050 “HHAFEREREENEHIEREUEEEE 

4060 ‘+++ ouverture coffre ### 

4070 HARAS 

4080 pause=2: GOSUB 5760:CLS K3:INPUT#S, "Code du coffre "ic$ 

4090 c$=LOHERS(C#):IF cf=codef THEN 4110 

4100 CLS#S:PRINT #3,"Le code n'est pas bon‘:aause=0:G60T0 2120 

4110 IF cle(ni=1 THEN 4140 

4120 GOSUB S770:CLS #3S:PRINTAS,." BRAVO mais ii n'v a pas de cle," 
8130 pause=0:60TO 2120 

4140 PEN S:LOCATE coxin) ,covin):PRINT CHR$(247) 

4150 SOSUB S770:CLS #S:PEN 12FRINT#3," BRAVO, prenez la cle" 

ARE RAREIEERIERFIEEEE 

4170 ‘+#+ prise clef #44 

ALBO AHEREHEREMNEERE 

4190 c#=INKEYS#: IF c$="" THEN 4190 

4200 c=ASC(c$):1F c{240 OR c)243 THEN 4190 

4210 xcl=xx+2#(c=242)-2#(r=243)] 

4220 ycl=yy+2#(cz240)-2#(c=241) 

4230 IF xcl=coxtn) AND ycl=coy(n) THEN 4240 ELSE 4290 

4240 nbcle=nbcietii:clie(n})=0 

4250 IF nbcle={ THEN LOCATE #5,9,5:PFRINT #5.CHR$(247) 


4240 IF nhclez2 3HEN LACAIE #S,10,5: PRINT KS,CHR$ (247) 
4276 IF nbclez3 THEN me #5,11,3:FRINT #5.CHRS (247) 
4390 PEN LiLOCATE coutai ,covins:PAiNT CHARS (246) 

4290 pause=0: GOTC Fr 

ADO HRÉEUR ER EM ER HER EHESS 

4SiG ‘ses instructions #+# 

PANIREZZZZLIZLLIT ESS 27222. 

2150 IF R$="C" THEN INK OO: INK LS1INÉ 2,11: B0RDER 0 

4:46 PAPER GiPEN ZrÉLS: FOR js5 TO SJiLOCATE 1,2: FRINT CHR$(221}: LOCATE i, 
SPRINT CHRSZZI NET 

2350 FOR 122 79 GiLQCATE 3,1: PRINT CHARS 12213 :10CATE 37,1:PRINT CHR$(221;: 
NET j 

4340 REAG 311F 3=20 THEN d41ÿ 

4570 1F ax 10 THEN 45RG EiSE 4396 

4149 lig=atcnis=3:#OTO 436 

8380 calzcoi+t 

3499 LOCATE coi,11gtPRINT CHR$a:G0T0 4340 

SEC HINDOH 46,1,40,11,2S:FAPER #O,O1CLS #G:PEN 3 

+425 FOR 1=1 TO 14 PRINT Hh:NEUT 

8456 EQSUR 5820 

1445 PRINT #6 "voulez-vous loc iastractione ? (D/N)" 

4456 1f=UPPERSIINKEY#I:IF If="N" THEN RETURN ELSE IF I£(3"0" THEN 4456 
Jd6ÿ CLS #6: PRINT HO: PRINT #b:T$="INSTRUCTIONS':GOSUR 5250 
4570 Tf='Four faire defiler les instructions, ":60SUB 5240 
435) Tf="aoguvez sur una touche quelconque, “:G0SUB 5260 
4496 CALL &BBG6 

4500 Té<'Yous vous trouvez dans un iaovrinthe de":608UB 5290 
4516 Tf="{0 etages et vous oevez en sortir le“:5OSUB 5290 
4520 Tf='oius raoudenent sgocsihle, “:GOSUS 5250 

453) CALL &8Bü 

1940 Tf="Mais, gour couvoir sortir ii vous':60SUB 5280 
SES Tf='"fauora etre en possession ges à clefs": SQSUR 5290 
JS T$s'qui vous sernettront da deverrouiiler":G0SUB 5280 
4576 T$="les 3 cadenas qui condamnent la porte":6CSUB 5290 
4580 T$z"de eortie, "161608 5290 

4530 CALL KREÜo 

d650 Tf="loc ciefs sont enfermess dans 5, 4 ou":G60SUE 5280 
Jelû Tf="soulement 3 2e3 10 coffres que vous‘: 60SUR 5290 
4426 Tf="trouyarez dans ie Lasvriatne, “:60SUB 5290 

490 CALL &BEGo 

J440 T$z'L ouverture d'un coffre necescite la*:G60SUB 5280 
4050 Tf="connaissance d un coge constitue ce S":G60SUB 5290 


4640 Tf='lettres formant un nom d'aniaal,":EO0SUB 5260 

4670 CALL &BB06 

4480 T$='Les Lettres du code sont dissinuless":GOSUB 5280 
4690 Tf="a differents endroits de l'etage, [l':G0SUB 5280 
4700 T$="peut arriver qu'une Lettre du code ne“:G60SUB 5260 
4716 Té£="puiese pas etre obtenue, De toute facon, ":G60SUB 5290 
4720 T$="vous n'avez pas besoin de connaitre":G0SUB 5290 
4730 T£="toutes les lettres du code pour essayer ":60SUB 5290 
4740 T$="d'ouvrir un coffre, ":60SUB 5290 

4750 CALL &BB0o 

4780 T$="Les escaliers vous meneront a un autre":GO0SUB 5280 
4770 T$="etage, mais pas obligatoirement voisin, “:G0SUB 5290 
4780 T$="Un escalier relie toujours les deux":SOSUR 5260 
4780 Tf="memes etaoes, Lin dessin à droite du": GOSUR 5290 
#00 Tiz"iaburinthe vous indiquera l'étage ou":S06IB 5290 
4910 T$="vous vous trouvez, “:60SUR 5280 

4920 CALL &BB04 

4830 T$="Voue nr avez Le droit de rester à un':60SUB 5240 
4840 Tf="mene etage qu'un tenps limite (180 sec) ":GOSUR 5290 
4850 T$="Au bout de ca laps de tons, vous serez ':G0SUB 529ÿ 
4860 T$="tranctore automatiquement à un autre":GOSUR 5290 
4870 Tf="etage, Aussi, eurvaillez l'horloge.":GOSUB 5260 
4980 CALL &BBG6 

4990 T$="Si vous etes coince, vous pouvez vous':60SUB 5260 
4900 Tf="en sortir en utilisant la touche {F)":G0SUB 5266 
4510 T$="qui vous pernet de percer une cloison, ":G0SUB 5260 
4920 T$="Mais, attention, suivant la resistance": G60SUB 3290 
4590 T$="de la cloison, Le tenps necessaire au": OSUE 5290 
4940 Tf="percage peut etre plus ou moins Long: ":G0SUE 3290 
4950 T$z'de 5 à 20 secondes. Aussi, n'utilicez":G60SUB 5260 
4960 Tf='cette possibilite qu'a bon escient, ":G0SUE 5290 
4570 CALL &BB06 

4680 T$='Tout cela serait tres facile, s'il n'y":E60SUB 5280 
4990 Tf='avait pas des fantones qui rodent et":G0SUB 5290 
3000 T$="qui ont la mauvaise habitude de vous":G0SUB 5290 
S010 T$="derober les clefs et d'aller les'":60SUB 5290 

9020 T$="renettre dans un coffre, Bien qu'ils":G0SUB 5290 
3030 Tf="ne vous poursuivent pas vraiment ,":60SUB 5290 

5040 T$="nefiez-vous en cependant ":8QSUB 5290 

5050 CALL &BBG6 

5060 T$="Pour vous deolacer utilisez les flechec':G0SUB 5280 
5070 PRINT#H6: PRINTH6: PRINTHE, eCHRS (244) vous" 


EOBO PRINT#&:PRINT#E ," FiCHRS 24555" : las fantomes" 

6080 PRINT#E:FRINT#6, * “:CHR$1246}:" : les coffres" 

Si00 PRINT#G: PRINTH#E," “eCHR$(24751" : Lac clefs" 

5110 PRINT#É:FRINT#o," "CHR#(248):" : les escaliers" 

5120 PRINTHÉ:PRINTHE," “eCHR# (dj :" : loc Lettres du cods" 
8190 PRINT#E: PRINT#E, " “eCHR$(23S):" : la sortie" 


5140 CALL &8BOÔ6 

5130 T$="REMARQUES":G60SLB 5280 

S140 T$="La forme des Labyrinthes, les oositions":60SUB 5280 

5170 Tf="des escaliers, du coffre, des lettres":G0SUB 3290 

5180 T$='du code, de la porte de sortie, restent":G0SUB 3250 

5190 Tf='les aemes au cours d'une partie, nais":50SUB 5290 

5200 T$="changent si vous en faites une autre. ":60SUB 5250 

5210 CALL &BB0o 

5220 T$="Lorsque vous arrivez a un nouvel etage, ":F0SUB 5280 

230 T$="et mene si vous v etes deja passe, un":60SUE 5290 

5240 T$='un nouveau code est affecte au cotfre.":G0SUB 5260 

5280 T$2"BONNE CHANCE":606UB 5280 

5260 CALL kBBÔc 

3270 CLS:RETURN 

S280 PRINT #6 

5260 PRINT Kb: PRINT #6 

9290 LOCATE #6,INTI(4D-LEN(TS5)/25+1,2S:FO0R tel TO LEN(TS:: PRINT #6, MIDS( 
F#ittissIF MID$(18,t,.1)<>" " THEN SOUND 1.284,5,5,0,0,.1 

5310 FOR d=1i TO SÜ:NEÏËT diNEÏT É:RETURN 

5320 DATR 4,128,221,221,221,221.225,223,221,221,229,128,128,221,221,221,2 
-21,225,120,128,221,221,221,221,221,221,128,223,221,221,221,221,225,128 
5330 DATA 4,128,128,221,221,221,221,221,221,224,221,128,128,128,129,128,2 
21,221,128,128,128,128,223,221,221,224,128,221,221,128,128,120,221,128 
5340 DATA 5,128,128,221,221,128.221,221,128,221,221,128,223,221,221,221,2 
21,221,128,128,128,223,221,221,224,128,128,221,221,221,221,221,224,128 
5350 DATA 6,128,128,221,221,128,221,221,128,221,221,128,221,128,128,128,2 
21,221,128,128,223,221,221,224,128,128,128,221,221,128,128,128,128,128 
5360 DATA ?,128,128,221,221,128,221,221,128,221,221,128,222,221,221,221,2 
24,222,221,128,221,221,221,221,221,221,128,222,221,221,221,221,221,128 
5270 DATA 9,221,221,221,221,221,221,221,221,71,46,77,69,78,78,7%,87,89,79 
173,45,49,57,96,93,20 

SRCIOETETITET DIT TITI TL 

5390 ni$="Victor":h125395 

5400 n2$="William":h2=6666 

5410 n3$="aavier":h327777 
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5420 n4f="Yvan":h4=B888 

5430 n5$="2oe":h3=10000 

5440 RETURN 

SASD HERHÉRIEÉEIIÉHRSANEÉE 

v466 ‘+++ fin de partie +#4 

5470 'RRSEIEEHEAESSEREREEHE 

3480 pause=] 

5490 CLS#3:CLS#] 

3800 <1=INTITIME, 300: stemps=tenpe+tel-cÔ+tepeto 

S010 IF temps)=h5 THEN LOCATE#I,1,10:PRINT#1."VCTRE SCORE EST TROF": PRINT 

#L:PRINT#1, "MAUVAIS POUR POUVOIR": PRINTHI:PRINT#L ,"FIGURER AU PALMARES":6 
OT 5580 

3020 IF TEMPSChI THEN LOCATE#I,1,10:PRINT#1," TOUTES MES FÉLICITATIONS: ":P 

RINT#1:PRINT#1, "VOUS AVEZ BATTU LE RECORD':6070 5540 

3330 IF TEMPSCAS THEN PRINTHI, "BRAVO, BELLE PERFORMANCE" :PRINTR#I:PRINTHI, 
"QUI VOUS PERMET DE':PRINT#I:PRINT#I."FISURER AU PALMARES":G0TO 5546 

3040 INPUT "Quel est votre non':in$ 

3990 ÎF tempstni THEN nifsndfind$f=n3$in3$=n2$in2f=ni$:ni$=n$ ELSE ÏF tome 
Sh2 THEN nü$=n4find4$sn3£in3$=n2$in2f=nf ELSE IF tenpsh3 THEN nif=ndf:n4 
=n3$in3$=n$ ELSE IF tempsth4 THEN n5$=ndfind$=n$ ELSE IF temosth5 THEN n 
J$snf 

Ju60 tea=tempe 

39/0 IF temçhl THEN h3=h4ih4=h3:h3=h2:h2shiihlsten ELSE IF temth2 THEN h5 

sh4sh4sh5th3=h2:h2stem ELSE IF temth3 THEN h5zh4sh4zhihisten ELSE IF tem 
(h4 THEN h5=h#ihästes ELSE IF ten(h5 THEN h5ztem 

5980 CLS#1 

2990 FOR 1=7 TO ISILOCATE Ii LH: PRINTHI CHARS (2383: LOCATE #1,i,7:PRINTHI, 
CHR$ (238): NEXT 

5600 FOR 1=2 TN B:LOCATE #1,7,1:PRINT#I ,CHRS 1238; :LACATE #1,1R,1:PRINTHI, 
CHR# (238): NELT 

5610 LOCATE #1,11,3:PRINTRI, "MALE" 

2020 LOCATE #1,9,5:FRINT#!, "PALMARES" 

3630 LOCATE #1,3,11:PRINT#I,"1- enlSiLOCATE #14 LI: PAINTRE USINS “HW 
H'ohls:PRINTHI," sec, ° 

3640 LOCATE R1,3,15:PRINT#I,"2- 'in2$:LOCATE #1,16,13:PRINTHI USINE “##H#4 

#'oh2::PRINT#I." sec," 

d690 LOCATE #1,3,1S:PRINT#1,"3- en3$:LOCATE #1,16,15:PRINTHI USING “RENE 
#'ohSs::PRINT#L," sec," 

3660 LOCATE #1,3,17:PRINT#I,"4- “ind$:LOCATE #1,14,17:PRINTRI USING “R##4 
#'oh4s:PRINT#," sec," 

9670 LOCATE #1,3,19:PRINTEI,"5- 'inS$:LOCATE #1,16,19:PRINTH#I USING "##44 
#'oh5s:PRINT#I," sec," 
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3600 SOGUB 5820 


5690 LOCATE #1,1,22:PRINT#I, Voulez-vous taire une 


mit 
4 


autre partie (O/N) 


5700 KB=UPPERSGINKEYS32 IF K$2'N" THEN NEW ELSE IF K$<"Q" THEN 5700 


8710 ERASE RS,EX.EY,cox,cov,cle.codex.codev 
5720 temossdinbcia=diracardshl:CLS:6079 680 


STT0 CHR HHHÉTHHÉHTETS 
ATAQ ‘4e HRAITAGES +++ 
S760 éréesterttéééetts 

E74) SQUND 1,200,:5,4:S0UND 1,9,3:5 
615,4: S0UND 1,0,5: SGUND 1,86,956,4: 
5770 FOR 12ù T9 700 STEP 10) 
6780 SOUND 1,20600+2+1,10+1:100,7 
3760 NEYT LIRE TURN 


qu 
4: RETURN 


Se00 SOUNDS 1,284,29,3:S0UND 1,9,2:S0UND 1,284,20,5 


1,458,40,5:RETUEN 
FÉI0 +#dupras de aa 2langa* 

5226 RESTORE 3880 

5930 FOR nosi 19 62 

5510 REËD ru 

5590 SOUND i,rr dus 

5860 SOUND 2,fr:7,dui 

5870 SOUND 4,.frs2, du, 

680 DATA 147,20,0,4,142,40,134.26,142, 40 
5450 DATA 159,20, 179,60,0,3,179,20,0,10 
5900 DATA 179,20.1:9,4û,0,3,119,20,106,40 

6610 DATA 0,3,106,20,115,60,9,3,119,20 
6920 DATA 0,10,147,20,0,3,142,40,154,20 
5630 DATA 142,40,159,20,176,60,0,3,175,20 
6040 DATA 0,10,176,26,119,46,0,3,119,20 
5650 DATA Hé QUE Rs 
a3e0 DATE 119,20,0,10,119,20.166,46,0,3 
397) DATA 104,20,0,3,106,40,142,20, 134, 4Ù 
5980 DATE G,5,174,40.0,3,154,26,119,80 
2690 DATA 0,3,119,20.0,3,119,40,159,20 
éG00 DATA 142.60,0,3,142,40,0,10,179,66 


8510 DATA 159,20,142,20,134,20,142,60,115 40 


020 DATA 6,.10,190,40,134,20,142,40,159,26 
8030 DATA 176,40,213,29,239,40,0,10,175,60 


8646 DATA 159,20,142,20,134,20,142,80,119,40 


4040 DATA 0,10,135,40,134,20,142,40,155,20 
8040 DATA 179,60,175,4Ù 
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AG Lis, 15 
T 


4 SQUND 3,0,5 


LSAUND 1,315, 


sSGUND 1,10 


29,3: SOUNE 


8670 NEXT nc 

60B0 RETURN 

6060 ‘HHFSISIEERISSÉIIÉS 
6100 ‘+++ CODES  +#+ 
DID EMA RREREHEEEENEES 
b120 DATA 65,75,71,76.69 
b130 DATA 65,83,80,73,67 
6140 DATA 66,73,67,72,89 
bi50 DATA 66,73,83,79,78 
6160 DATA 66,79,69,85,70 
&170 DATA 66,85,84,79,82 
6180 DATA 47,65,82,80,89 
b190 DATA 67,72,73,65,78 
b200 DATA 67,82,65,06,69 
6210 DATA 67,d5,71,73,68 
6226 DATA 66.73.78,08,069 
8230 DATA 48,73,78,71,7 
h240 DATA 68,79,71,85,89 
b250 DATA 65.73,69,45,82 
o2bt DATA 70,85.82.69,84 
6279 DATA 71,82,73,86,65 
0280 DATA 71,85.69,80,69 
b260 DATA 72,65,82,75,78 
6300 DATA 72,73.66,79,85 
6310 DATA 72,85,80,60,6S 
6320 DATA 72,89,69,78,69 
6330 DATA 73,83,65,82,6B 
6340 DATA 75,79,65,76,65 


8350 DATA 74,65,80,73,78 
6560 DATA 76,69,82,79,84 
b370 DATA 77,65,78,84,65 
b380 DATA 77,69,82,76,89 
4390 DATA 77,73,76,65,78 
bAGO DATA 77,79,82,83,69 
b410 DATA 77,79,82,85,6S 
8420 DATA 77,79,85, 76,69 
6430 DATA 77,85,74,69,84 
8440 DATA 77,85.78.79,64 
6450 DATA 76,75,49,80.73 
#40 DATA 79,82,86,69,64 
b470 DATA 80,65,78,68,85 
4480 DATA RG,79,78,69,88 
8390 DATA 80,75,85,76,69 
6500 DATA 82.45,B4,79,78 
6510 DATA 83.85,73,71,65 
b520 DATA B3,69,82,73,7E 
4330 DATA 23,73,78,71,6% 
6540 DATA 84,65,80, 73,82 
6550 DATA 84,65,84,75,85 
6560 DATA 84.65,85,80.69 
6570 DATA 84,73,71,82,68 
6580 DATA B4,82,85,73,69 
6590 DATA B6,65,67,72,69 
b600 DATA B6,73,83, 79,78 
bhl) DATA 50,67 ,66,92,87 
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LEXIQUE ANGLAIS/FRANCAIS 


Michel ARCHAMBAULT 


L orsque l'on se débat avec une notice en anglais — c'est hélas fréquent — 
on se dit souvent “j'ai déjà recherché ce mot dans le dictionnaire et je ne 
m'en souviens plus”. Alors, changeons nos habitudes : avant d'attaquer une 
lecture anglaise, lancons ce programme fichier. 


Mot inconnu ; on le tape au clavier. S'il est déjà au fichier, réponse presque 
instantanément (environ 1 seconde), s'il ne l’est pas, dictionnaire. Une fois la 
traduction trouvée, vite option C (= compléter) pour gonfler le fichier de ce 
nouveau mot anglais et ainsi de suite. A la fin, on sauvegarde le fichier ainsi 
augmenté. Le mien contient déjà 286 mots (ceux que je risque d'oublier) et 
ce n'est qu'un début... 

Ce logiciel est donc un gestionnaire de fichiers mais ‘tres spécialisé”, conçu 
uniquement pour cet Usage, ce qui lui confère des performances que ne 
pourrait avoir un “gestionnaire à tout faire” du commerce. Ÿ compris certains 
progiciels tournant sur IBM-PC ! 


SES PARTICULARITÉS 


— Un seul et unique menu. On à supprimé les questions inutiles genre 
“nom du fichier à charger”, puisque c’est toujours le même et qu'il se charge 
dès le départ... 

— Chaque fiche n'a que deux rubriques : mot anglais + sa traduction 
française. Elle tient sur une ligne d'écran, avec son numéro. 

— De ce fait, la saisie et la lecture se font en ‘plein écran”. Il est en effet utile 
de pouvoir lire quelques lignes plus haut la fiche-mot que l'on à demandée il y 
a quelques minutes. Vous voyez pourquoi. 

— Au menu principal, il suffit de taper la lettre initiale de ce que l'on veut faire 
(sans ENTER). De haut en bas, nous avons : 
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: Anglais vers français (c'est la plus utilisée !}. 

: Français vers anglais. Eh oui ! La recherche se fait indifféremment dans les 
deux sens. 

C : Compléter le lexique. 

M : Modifier une fiche (correction d'erreur). 

Viennent ensuite les options moins fréquentes : 

E : Enregistrement du fichier (s'il a été complété ou corrigé). 

T : Triaphabétique {par les mots anglais). C'est, avouons-le un petit luxe quasi 

inutile. 
| : Impression du fichier sur imprimante, un autre gadget... 
Q : Quitter le programme {= CLS : END). 


— Quand on est dans l'une des rubriques courantes, il suffit de taper Q et 
ENTER pour revenir au menu. Ce retour est automatique pour les options E, T' 
et |. 

— En recherche A" ou ‘“F" tout le fichier est exploré de haut en bas à chaque 
demande, avec affichage des lignes-fiches satisfaisant la demande. Un bip 
sonore signale la fin de son travail. Pour 286 fiches, la durée est de 
1,2 seconde... 

— On peut demander le mot exact ou une partie du mot en faisant suivre d'un 
astérisque *, 

Exemple : 

Je demande BLOW UP ; il l'a, il affiche : n° 43 : BLOW UP = SE PLANTER. 
Si j'avais demandé BLOW-UP pas de réponse. Mais je l'aurais eu en 
demandant BLOW*. En demandant UP*, il m'aurait affiché les lignes de 
BLOW UP, SET UP, SUPPLY, etc. Vu ? 

La recherche avec un tronçon de mot n'est pas plus lente qu'avec le mot 
intégral. 

— La correction d'une fiche est très rapide. L'ancienne version apparaît à 
l'écran en bleu clair, vous écrivez en-dessous en jaune. Si l'un des deux mots 
n'est pas à corriger, faire ENTER quand le curseur est dessus, il sera conservé. 
Il y a encore de nombreux petits détails sympathiques, mais étant de moindre 
intérêt, nous en parlerons plus loin. 

Le fichier de l'auteur ne peut occuper les pages du “CPC”, en revanche, il sera 
logeable sur la disquette bi-menseulle commercialisée par SORACOM. Vous 
pourrez alors le compléter à votre guise. 

A présent, analysons un peu le listing. 


n> 


LE DÉPART 


— Lignes 50 à 70, c'est la parade habituelle contre le bug AMSTRAD de 
l'OPENOUT {voir CPC n° 3), 

— Le tableau DIM M${900,1} : (M$ = mots). Fixé très arbitrairement à 900, 
voire 999, il pourra par la suite ‘être modifié bien au-delà. La colonne O, c'est 
le mot anglais limité à une longueur de 14 : la colonne 1, c'est la traduction 
française, chaîne limitée à 21 caractères. 
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— Ligne 250 : SUPER IMPORTANT ! Ce GOTO 1000 ne va servir que pour la 
première fois parce qu'il n'y a pas encore de fichier à lire. Dès que le fichier 
ANGLOFRA aura été enregistré (même avec quelques mots), il faudra effacer 
cette ligne ou intercaler un REM {apostrophe). 

Si vous avez un lecteur de disquettes, le fichier sera sur la même face que le 
programme, en ce cas, vous ajouterez la ligne : 


315 GOTO 400 
— Ligne 350. CALLÆBBO6 stoppe le programme jusqu'à ce que l'on frappe 
une touche. 


LE MENU 


Toujours en ligne 1000 (mon “standard”), car en cas d'ennui il suffit de 
faire ESC et GOTO 1000. 

Le nombre de mots NF apparaît en haut à droite de l'écran. 

La ligne 1150 et le modèle 50000 sont de vieilles connaissances. Je rappelle 
que le module 50000 ("Réponse à un menu) est un sous-programme utilitaire 
enregistré que l'on joint au programme en Cours d'écriture par MERGE "MENU". 
En ligne 1160, GOSUB vers le sous-programme demandé, puis retour en 1000, 
où fin du programme en 1520. 


RECHERCHE DES MOTS 


En ligne 2000 (option anglais) ou 2500 (option français) P est le numéro de la 
colonne du tableau DIM à explorer. Puis tout le travail se fait en GOSUB 3000. 
En haut de l'écran, la fenêtre WINDOWXH 1 sert à rappeler le mode d'emploi 
(l'astérisque et Q pour quitter) et à entrer le mot M$ à chercher. Celui-ci est mis 
en majuscules, puis on examine s'il est terminé par * ; en ce cas il en est 
dépouillé et traité en 3500 à l'aide de la fonction INSTR. Si pas d'astérisque, 
traitement par —. Dans les deux cas, on vérifie que la longueur autorisée 
n'est pas dépassée. | 

A chaque occurence rencontrée, la ligne réponse est affichée à l'écran. 
Scrolling normal lorsque l'écran est plein. Un bip sonore, CHR${7} prévient de 
la fin de la recherche de 1 à NF 


LA MODIFICATION (ou correction) - Ligne 5000 


On met le flag MODIF = 1 puis renvoi en GOSUB 10000 : ce sous-programme 
est le plus gros puisqu'il est commun avec la saisie de nouveaux mots. 

La fenêtre WINDOWÆAH1 comporte quelques légendes et l'entrée du numéro de 
la fiche à corriger. 

L'ancien contenu apparaît en bleu clair, le curseur se place d'abord sous le mot 
anglais que l'on peut retaper (en jaune), ENTER ; le curseur va ensuite sous le 
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mot français, idem. Généralement, l'un des deux mots n'est pas à modifier, 
taper alors ENTER pour le conserver. 

Si on s'est trompé de numéro de fiche (cela arrive...), on presse donc deux fois 
la touche ENTER pour ne rien modifier. Il y a un CLS après chaque 
correction de fiche. 


L'ENTRÉE DE NOUVEAUX MOTS - Ligne 10000 


La fenêtre supérieure ne sert qu'à légender, ce qui laisse 19 lignes pour l'écran 
de saisie. Lorsque celui-ci est rempli, il n'y a pas de scrolling mais un CLS ; 
c'est dommage, mais je n'ai pas réussi à faire autrement, à cause de ces deux 
LINE INPUT sur la même ligne à la suite d'un PRINT USING. 

La longueur de chaque mot entré est vérifiée : s'il est trop long, il est tronqué. 
UPPERS le met en majuscules. 

SUPER ULTRA IMPORTANT ! Le LINE UP autorise l'entrée de divers signes de 
ponctuation tels que virgule, apostrophe, etc... mais n'entrez surtout pas de 
GUILLEMETS ! Il les accepte tant que le fichier est en RAM : enregistrez-le et 
rechargez-le, et c'est le désastre à partir du premier guillemet (décalage). 
C'est un petit bug AMSTRAD à la lecture par la commande INPUT# 9. 


LE TRI - Ligne 7000 


C'est le banal “tri à bulle” par ordre alphabétique des mots anglais. Nous avons 
vu que le désordre ne peut ralentir la recherche des mots, alors à quoi sert-il ? 
À rendre le listing sur imprimante plus présentable ; en somme un gadget pour 
un autre gadget. En fait, il présente deux autres intérêts : le dépistage de: 
doubles en examinant le listing. Une future et éventuelle extension du logiciel 
qui utilisera la “recherche par dichotomie”. On en parlera en annexe... 
Attention, un tri à bulle est tres lent, cela peut faire des dizaines de minutes 
pour quelques centaines de fiches... 


L'IMPRESSION - Ligne 8000 


Vous avez déjà le listing de votre fichier de 300 mots, vous venez d'en ajouter 
une quinzaine : il est donc pratique que le programme vous demande : “à partir 
de quel numéro ?" 

Pour soigner la présentation, le numéro est en PRINT USING et les mots sont 
tabulés. Une ligne en pointillés rejoint les mots anglais et français (fonctionnera 
sous SEIKOSHA-AMSTRAD). 


PETITS CONSEILS DIVERS 


— Pour un verbe anglais, ne mettez pas le TO. 

— Entrez les mots au singulier. 

— Si un mot anglais a deux sens, inscrivez-les dans le ‘mot ” français en 
séparant par une virgule. Exemple : 


PAD = BLOC, COMPLETER 
— Où enregistrer le fichier ? Magnétophone : sur une cassette séparée et en 
deux endroits : compteur — 3 et compteur — 50.Lecteur de disquettes : 
sur là même face que le programme + sur une disquette de sécurité. 
— En recherche, il est plus sécurisant d'utiliser l’astérisque. 


LA RECHERCHE PAR DICHOTOMIE 


Si plus tard le fichier atteint près de 2000 mots, chaque recherche durera près 
de neuf secondes ! Prohibitif ; d'où la méthode par dichotomie. Condition 
impérative : le fichier doit être trié . Soit le mot M$ à chercher. On le compare 
à celui du milieu du fichier {exemple : le n° 1000). Plus grand ou plus petit ? 
Plus grand. On considère donc la seconde moitié (1000 à 2000) et on compare 
M$ au mot milieu {n° 1500). Plus petit on compare alors M$ au mot n° 1250, 
etc. Dès que la tranche de localisation fait moins de 200 fiches, on procède à 
l'exploration fiche par fiche. Vous imaginez le gain en vitesse ? 


10 ‘LEXIQUE ANGLAIS-FRANCAIS / AMSTRAD 
20 ‘Hichel Archaabault / 1985 


30 OPENOUT"BIDON" 

b0 MEMORY HIMEM-1 

70 CLOSEOUT 

200 MODE 1:BORDER 2:INK 2,20: PAPER O:PEN 1:CLS 

210 DIM M#(900,1):DEFINT A-2 

250 ‘GOTQ 1000:'Ligne a effacer des que le fichier mots aura ete enregist 
re, 

300 "LECTURE FICHIER 

310 CLS:PEN SLOCATE 9,4:PRINT "LEXIQUE ANGLAIS-FRANCAIS":PEN | 

320 LOCATE J,B:PRINT "PREPAREZ LA CASSETTE OU DISQUETTE" 

330 LOCATE 3,10:PRINT “CONTENANT LE FICHIER MOTS ANGLOFRA," 

340 PEN 2: LOCATE 10,15:PRINT ‘puis tapez une Touche...":PEN | 

350 CALL &BBOG: CLS: PRINT: PRINT " CHARGEMENT des MOTS ..,,.,,":PRINT 
400 OPENIN "ANGLOFRA": INPUT#9,NF 

410 FOR 1=1 TO NF: INPUT#9,MS$ (1,0) ,M$(I,1)#NEXT 

420 CLOSETN 

1000 ‘MENU PRINCIPAL 

1010 CLS: INK 0,1: INK 1,24 

1020 LOCATE 17,2:PEN S:PRINT "M E N U":PEN 2:LOCATE 29,2:PRINT NF:"rots": 
PEN ! 

1030 LOCATE 6,4:PRINT "A = Anglais ---) Francais" 

1040 LOCATE 6,6:PRINT "F = Francais --} Anglais" 

10650 LOCATE 6,8:PRINT "C = Conpleter le lexique" 

1060 LOCATE 8,10:PRINT "M = Modifications" 
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1070 LOCATE 6,12:PRINT "E = Enregistrement" 

1080 LOCATE 6,14:PRINT "T = Tri alphabetique" 

1100 LOCATE 6,16:PRINT "I = Iapression” 

1110 LOCATE 6,20:PRINT "EG = Quitter" 

1150 TEX$="AFCHETIQ": G0SUB 530000 

1160 ON K 60SUB 2000,2500,4000,5000,6000,7000,8000,1500 

1170 G0T0 1000 

1500 ‘FINAL 

1510 CLS:LOCATE {0,12:PRINT "VOUS POUVEZ ETEINDRE, ":PRINT: PRINT 
1329 END 

2000 ‘RECHERCHE ANGLAIS-->FRANCAIS 

2010 R$="ANGLAIS":P=0 

2020 G0SUB 3000 

2030 RETURN 

2500 ‘RECHERCHE FRANCAIS-->ANGLAIS 

2510 R$="FRANCAIS":P21 

2520 GOSUE 3000 

2330 RETURN 

3000 "RECHERCHE DE TRADUCTION 

3010 WINDOH #1,1,40,1,7:FAPER#I.O:PENRI, 1: CLS #1 

3020 WINDOH #0,1,40,8,25:PAPER 2:PEN O:CLS:PRINT 

3030 LOCATE#1,4,2:PRINT#I, "Mot suivi de * = contenant ce aot" 
3040 LOCATE #1,2,4:PRINT#1,"Q pour QUITTER:Le BIP=fin du fichier” 
3050 PEN#I,3:LOCATE #1,3,6:PRINT#I,CHR# (18): "Mot "aR$s;" 7: "à 
3060 LINE INPUT #1,M$:M$=UPPERS(M$):1IF M$="Q" THEN 3900 

3080 IF RIGHT$(M$,1)="#" THEN 5500 

3100 IF LEN(MS) )14+P47 THEN 3050 

3110 FOR I=i TO NF 

3120 IF M$=M$(I,P) THEN GOSUB 3800 

3130 NEXT:PRINT CHR$(7)::G60T0 3050 

3500 M$=LEFTS (M$, LEN(MS)-1) 

3310 IF LEN(M$) )14+P+#7 THEN 3090 

3520 FOR I={ TO NF 

3530 IF INSTR(MS(I,P),M$) >0 THEN GOSUB 3800 

3540 NEXT:PRINT CHR$(7);:60T0 3050 

3800 ‘AFFICHAGE LIGNE RESULTAT 

3810 PRINT USING "###"s:I:: PRINT TAB(S):M#(1,0):TAB(18)3;"s "M8, 1) 
3830 RETURN 

3900 WINDOW#0,1,40,1,29:PAPER OPEN [:CLS 

3910 RETURN 

4000 ‘COMPLETER LE LEXIQUE 

4010 CLS 
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4020 LOCATE 14,4:PRINT "NOUVEAUX MOTS," 

4030 LOCATE 16,10:PRINT "D'ACCORD ?":TEX#$="ON":GOSUB 50006 

4040 IF Kz=2 THEN 4060 

4050 N=NF+1:60SUB 10000:NF=N-1 

4060 RETURN 

5000 “MODIFICATION 

5010 CLS:LOCATE 14,4:PRINT "MODIFICATION. 

5020 LOCATE 16,10:PRINT "D'ACCORD ?":TEX#="ON":GOSUE 30000:IF K=2 THEN 59 
00 

5030 MODIF=1 

5040 GOSUB 10000 

5050 MODIF=0 

5900 RETURN 

6000 “ENREGISTREMENT 

&010 CLS:LOCATE 2,5:PRINT "SAUVEGARDE SUR DISQUETTE QU CASSETTE" 
6020 LOCATE 16,10:PRINT “D'ACCORD ?":TEX$="ON":GDSUB 50000 

4030 IF Kz=2 THEN 1000 

6080 OPENOUT "ANGLOFRA" 

6090 HRITE #9,NF:FOR 121 TO NF:MRITE K9,M$(1,0) ,MS(T, 1): NEÂT 
6100 CLOSEOUT 

4600 RETURN 

7000 ‘TRI 

7010 CLS:LOCATE 13.4:PRINT "TRI OU FICHIER: ":LOCATE [8.11:PRINT "D'ACCOR 
D 7":TEX$= "ON": GO0SUB 50000: IF K=2 THEN 7900 

7020 LOCATE 16,21:PRINT "Patience... ":T=Ù 

7060 F=0:FOR J=1 TO NF 

7070 IF M$(J,0) >= M$(J-1,0) THEN 7090 

7080 FOR R=0 TO 1:M$10,R)=M$ (JR): M$ CU ,RI=M# (7-1 ,R): M8 T1, RI2MS(O,RIINE 
dTiF=i 

7090 NET 

7100 IF F THEN 7040 

7900 RETURN 

8000 ‘IMPRESSION 

8010 CLS:LOCATE 5,10:PRINT "L'IMPRIMANTE EST-ELLE PRETE ?" 

8020 TEX$="ON":60SUB 50000: IF K=2 THEN 8900 

8030 CLS:LOCATE 6,10: INPUT "A PARTIR DE QUEL NUMERO ? ",D$ 

8040 D=VAL{D$#):IF D=0 OR DÈNF THEN 8050 

8050 PRINT #8,CHR$(27):CHR$(64):FOR I=D TO NF 

8060 PRINT 48,USING "##h':ls2PRINT #8," "iM$(1,0):STRINGS(16-LENCMS (1,0) } 
lee MMS (I, 1) 

8070 NEXT: PRINT #8 

B900 RETURN 
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10000 ‘ SAISIE 

19020 HINDOW#0,1,40,7,29:PAPER O:PEN Î:CLS 

10030 WINDOWK1,1,40,1,5:PAPER#1,2:PEN#1,3:CL5#1 

10040 LOCATE #1,2,2:PRINT #1,"Pour quitter { Menu } --) Q + ENTER" 
10050 LOCATE #1,2,4:PRINT #1,"N": SPC (5): "ANGLAIS": SPC(11): "FRANCAIS" 
10080 L=0 

10070 IF MODIF THEN GOSUB 10500:6070 10200 

10100 L=L+1:LOCATE [,L:PRINT USING "###":N 

10103 LOCATE 5,L:LINE INPUT “",H${N,0) 

10110 MSN. O0)=UPPER${M#(N,0)): IF M$(N.0)="Q" THEN 10200 

10120 IF LEN(MS(N,0)} 14 THEN MS(N,O0)=2LEFTS#(M$(N,0) 14) 

10130 LOCATE 18,L:LINE INPUT ":",M#N,1) 

10140 M$(N,1)=UPPERS (MSN, 13321F LENIMS(N.1)3 221 THEN MSIN,1)=LEFTS(M#(N 
1}20) 

10190 N=N+1:1IF L:19 THEN CLS:L=0 

10180 GOTO 10070 

10200 HINDOH#0,1,40,1,25:CL5 

10300 RETURN 

10300 ‘FICHE À MODIFIER 

10510 PEN 2:LOCATE 3,1: INPUT "QUEL NUMERO ?{ Q pour Quitter }:",N$:N$=UPP 
ERF(N#) 

10520 IF N$="Q" THEN PEN 1:607T0 10700 

10530 N=VAL(N#$):IF N=0 OR N2NF THEN 10510 

10540 LOCATE 1,3:PRINT USING "H##":Ns: PRINT TAB(S):MS#(N, 0): TAB(19)5 M$ UN, 1 
10550 PEN 1 

10560 LOCATE 5,5:LINE INPUT "",M$:MS$=UPPERS (N$) 

10570 IF M$="" THEN 10400 

10580 IF LEN(M#; )14 THEN MS=LEFTS(M$.14) 

10370 H$IN,0)=M$ 

10600 LOCATE 19,9:LINE INPUT "",M$:M$=UPPERS (M$) 

10610 IF M$="" THEN 10690 

10420 IF LENIM$) )21 THEN M$=LEFTS(M$,21) 

10630 M$IN,1)=M$ 

10890 CLS:60T0 10510 

10700 RETURN 

50000 ‘REPONSE À UN HENL 

50010 LTLENCTEXS):R#="" 

30020 LOCATE 15-LT,24:PRINT "Reponse (": 

90030 FOR 1=1 TO LT-1 

50040 PRINT MID#(TEYS$,1,1)1",":2NET 
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50050 PRINT RIGHT$(TEKS,1)3") "3; CHR$ 1194) :CHR$ (2435): CHR (207) 
50060 TEX$=UPPERS (TEX$) 

50070 WHILE R$="":R$=INKEY#: HEND 

50080 R$=UPPERS (R$) :K=INSTR(TEXS RS) 

50090 IF K=0 THEN R$="":PRINT CHRS(7);:G0T0 50070 

30100 RETURN 

MS) “ee EIN DELIBRINE ses 
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TURBO PASCAL 


Denis BOURQUIN 


‘AMSTRAD possède déjà un compilateur PASCAL, mais ce compilateur 

fonctionne sous le système d'exploitation Basic et est de taille réduite ; il 
permet simplement une bonne initiation au langage PASCAL, mais il lui 
manque surtout les opérations sur les fichiers. Il manquait donc à 
l'AMSTRAD un compilateur performant et fonctionnant sous CP/M, il 
existe maintenant et nous ne pouvons espérer mieux. 


En effet, un des meilleurs compilateurs PASCAL : TURBO PASCAL est 
maintenant disponible sur AMSTRAD. Tous les programmeurs s'intéressant 
au langage PASCAL ont entendu parler de TURBO PASCAL. 

Pour ceux qui ne connaîtraient pas le langage Pascal, nous allons en dire 
quelques mots. 

Le langage Pascal a été développé en 1971 par le Pr. Niklaus WIRTH à 
l'université technique de Zurich ; ce langage fut surtout utilisé, au début de son 
existence, dans les universités, mais depuis le début des années 80, il connaît 
un grand essor et est utilisé dans de nombreuses applications professionnelles. 
C'est un langage mettant en application la méthode de programmation 
appelée programmation structurée, 


Un Français qui étonne l'Amérique 


Mais avant de parler de ce qui a fait le succès de TURBO PASCAL, nous 
dirons quelques mots de son concepteur qui est français et s'appelle Philippe 
KAHN. Il a fondé, aux Etats-Unis, une société : BORLAND INTERNATIONAL. 
La qualité et les prix ridiculement bas de ses logiciels ont fait la force et la 
renommée de cette société. Pour s'en rendre compte, il suffit de regarder le 
prix du compilateur TURBO PASCAL sur AMSTRAD : 741,25 F, alors que 
jusqu'à ces dernières années le prix d'un compilateur Pascal souvent moins 
performant était de 10 à 20 fois supérieur. 
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Un compilateur Turbo 


Tout le monde connaît l'intérêt d'un langage compilé, mais regrette souvent 
lé temps passé sous des éditeurs peu performants puis en compilation pour 
s'apercevoir qu'il restait une erreur et qu'il fallait revenir sous l'éditeur, 
rechercher cette erreur et recompiler. Comme nous le verrons par la suite, 
TURBO PASCAL rend aisées toutes ces tâches ingrates. Mais faisons un essai 
de ce fameux compilateur turbo. 

TURBO PASCAL est un compilateur qui tourne sous CP/M ; nous passons 
donc sous CP/M et regardons ce que contient la disquette TURBO PASCAL. 
Nous y trouvons un fichier TURBO.COM qui est le compilateur-éditeur, un 
programme d'installation du terminal propre à l'AMSTRAD, un fichier 
TURBO.MASG qui contient les messages d'erreurs, un fichier TURBO.OVR 
propre à la version CP/M et qui permet l'exécution de programme. COM sous 
TURBO comme des utilitaires de copie ou tout autre programme, un certain 
nombre de fichiers.PAS, qui sont des fichiers source de programmes PASCAL 
de démonstration que nous avons beaucoup appréciés, et enfin un fichier 
READ.ME qui est assez explicite par son nom. Ce dernier est un fichier texte 
qui contient un certain nombre de conseils et d'explications quant à l'installa- 
tion et l'utilisation de TURBO PASCAL sur AMSTRAD. 

TURBO PASCAL est un compilateur qui contient son propre éditeur de texte ; 
nous allons donc appeler TURBO pour écrire notre premier programme 
PASCAL. Les premiers messages s'affichent, nous voyons que nous sommes 
en possession de la version 3,004 de TURBO PASCAL pour CP/M-80,280. Et 
nous avons le message : INCLUDE ERROR MESSAGES [Y/Nj?. Si nous 
répondons Ÿ, nous avons un menu qui s'affiche, ainsi que la quantité d'octets 
mémoires disponibles, mais voyons la figure 1, exemple d'écran que nous 
allons expliquer. 

Sur cet écran apparaît la liste des commandes disponibles, et l'espace 
mémoire disponible pour l'écriture de nos programmes : 6637 octets ; la 
première impression est que cet espace est plus que réduit sous CP/M. Il est 
possible d'augmenter sa taille en n'incluant pas les messages d'erreur : dans ce 
cas, l'espace disponible est de 7952 octets, En effet, sous CP/M, il reste 
environ 39 k à la disposition de l'utilisateur, le compilateur TURBO en 
occupant 31 K, il ne nous reste donc pour loger nos sources et nos objets que 
8 k. Mais rassurez-vous, avec TURBO PASCAL, il est possible de faire des 
programmes beaucoup plus grands que 8 k-octets. Notons que, dans ce cas, 
nous perdrons les avantages de rapidité de TURBO PASCAL. Les programmes 
correspondant à des applications importantes seront compilés dans un fichier 
COM, pour être exécutés et, dans ce cas, ils pourront aller jusqu'à 39 k-octets 
de code. || faudra prendre la précaution de diviser le source en plusieurs 
fichiers qui seront inclus à un fichier principal lors de la compilation, car il ne 
peut y avoir plus de 8 k-octets de source présents en mémoire. Et si votre 
application ne tient pas sur 39 k-octets, il vous reste encore la possibilité de 
scinder en overlay, car TURBO supporte aussi cette technique de programma- 
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tion. Nous venons de voir un exemple d'écran qui résume les commandes 

disponibles sur TURBO. Ces commandes sont accessibles par une lettre en 

majuscule. 

L : permet de changer l'unité de disque de travail. 

W : permet de changer le fichier de travail. 

M : permet de spécifier un fichier principal, ce dernier peut-être différent du 
fichier de travail. 

: permet de passer sous l'éditeur incorporé à TURBO PASCAL 

: lance la compilation dans le mode choisi par Option. 

: permet d'exécuter un programme compilé ou si le programme n'a pas été 
compilé, le compile avant de l'exécuter. 

: permet de sauvegarder le source en cours. 

: permet d'exécuter un autre programme en cours d'utilisation de TURBO 

: permet de faire un directory de disque sous TURBO. 

: retourne au système d'exploitation CP/M 

: permet de choisir entre trois options, M, C et M. M est le code mémoire 
par défaut, le code objet se trouve en mémoire près la compilation C : le code 
objet issu de la compilation est écrit sur un fichier disque.COM, H : le code 
objet est écrit dans un fichier chaîné ; ce fichier ne contient pas la librairie 
Pascal et sera donc appelé par un autre fichier. 


nn, 
Logged drive: A Lost 


Work file! 


20m 


Opoxuw 


Main file: 
Edit Compile Run Save 


ex*ecute Dir Quit compiler Options 


Text: O bytes (8113-8118) 


Free: 6637 bytes (3119-9B06) 


Mais passons tout de suite à un essai de l'éditeur. Nous choisissons l'option E 
dans le menu, une question apparaît : “Work file ?” Entrons essai.pas, l'écran 
s'efface, et nous sommes sous l'éditeur. 

Nous sommes en présence d'un éditeur pleine page très performant : les 
déplacements à l'intérieur d'un texte sont obtenus à partir du pavé des flèches 
de L'AMSTRAD, et il est possible de se déplacer d'un caractère, d'un mot, 
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d'une ligne ou d'une page. Cet éditeur peut effectuer l'indentation automa- 
tique, il peut recadrer chaque mot d'une ligne par rapport à la précédente, ce 
qui favorise la lisibilité du programme. A ces commandes s'ajoutent toutes les 
commandes d'insertion, suppression, déplacement, remplacement. Mais il 
n'est pas nécessaire de faire l'éloge de tels éditeurs qui sont bien plus 
agréables d'utilisation que les éditeurs ligne, et en plus quand ils sont bien 
faits, ça ne peut qu ‘augmenter leur intérêt. . 

Regardons maintenant la syntaxe de ce PASCAL. || apparaît au premier coup 
d'œil jeté dans le manuel fourni avec la disquette qu'il suit de la définition du 
PASCAL STANDARD. Il est à noter que ce livre est rédigé en français et est 
très bien conçu : il contient tous les renseignements nécessaires à l'utilisation 
de TURBO PASCAL. Le débutant en PASCAL a ainsi à sa disposition une 
excellente introduction à PASCAL avec le livre et la disquette TURBO TUTOR, 
qui sont vendus séparément. 

TURBO PASCAL comprend un certain nombre d'extensions par rapport au 
PASCAL STANDARD, ce sont : 

— les variables du type adresse absolue, 

— la manipulation de bits et d'octets, 

— l'accès direct à la mémoire et aux ports d'entrées-sorties (la mémoire est 
considérée comme un tableau prédéclaré MEM de 65536 octets, il en va 
de même pour les entrées-sorties qui sont le tableau PORT de 256 octets). 
— les chaînes de caractères dynamiques, 

— l'ordre des sections dans la partie déclaration des programmes est libre, 
— la possibilité d'accéder aux fonctions du système d'exploitation par des 
procédures et fonctions prédéfinies : BDOS, BIOS, BDOSHL, BIOSHL, 

— la possibilité de 4 fichiers imbriqués, 

— la possibilité de générer du code machine en ligne par l'instruction INLINE, 
— les opérations logiques peuvent se faire sur des entiers, 

— la possibilité de chaîner des programmes avec variables communes, 
— les fichiers de données à accès aléatoire, 

— les constantes stucturées, 

— les fonctions de conversion de type. 

Nous avons relevé comme autre particularité les instructions BLOCKREAD et 
BLOCKWRITE qui servent aux manipulations de fichier sans type. Ces 
procédures travaillent sur des enregistrements de 128 octets. 

L'accès au multi-fenêtrage de l'AMSTRAD peut se faire par l'envoi de la valeur 
26 à l'écran et des coordonnées de la fenêtre. Exemple : si ces coordonnées 
sont X1, X2, Y1, Y2 et ont été déclarées BYTE, le positionnement dans cette 
fenêtre se fera par : WRITE (#-26,CHR {X1—1), CHR(Y1—1), CHR(X2—1), 
CHR (Y2—1)). 

L'utilisation des variables dynamiques se fait au travers des procédures 
standards NEW et DISPOSE ainsi que les procédures MARK et RELEASE. 
TURBO PASCAL permet les manipulations de chaîne et possède de nom- 
breuses procédures pour cela : CONCAT, COPY, DELETE, INSERT, LENGTH, 
POS, STR, VAL. 

En résumé, avec TURBO PASCAL, nous avons un compilateur PASCAL très 
complet. Notons que pour l'utilisation des possibilités graphiques de 
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l'AMSTRAD, TURBO PASCAL, dans sa version CP/M, ne contient aucune 
fonction ou procédure spécifique, 

Nous avons essayé d'utiliser les routines en ROM, mais ce fut sans grand 
succès. Rassurez-vous, il est prévu avec TURBO pour AMSTRAD un pack 
graphique qui permettra d'utiliser toutes les ressources de l'ordinateur, mais 
lorsque nous avons écrit ces lignes, nous ne le possédions pas : lorsque nous 
l'aurons reçu, nous en dirons quelques mots. 


Après avoir passé en revue la syntaxe, voyons ce qui fait aussi la force de ce 
Pascal : sa rapidité de compilation. 11 n’est pas nécessaire de dire que le temps 
de compilation en mémoire est négligeable. Lorsqu'une erreur est rencontrée 
au cours de la compilation, il suffit d'appuyer sur la touche ESC pour retourner 
instantanément sous l'éditeur avec le curseur situé juste derrière cette erreur : 
il n'y a plus qu'à la corriger et relancer la compilation. La mise au point d'un 
programme est aussi aisée qu'en Basic. La compilation de programmes 
importants se fait sur disque dans un fichier. COM. Sur la disquette TURBO se 
trouve un programme de démonstration qui n'est rien d'autre qu'un tableur. Ce 
programme occupe 1200 lignes et est compilé en 30 secondes. || permet de 
mettre en évidence les possibilités infinies de TURBO PASCAL. 

Nous avons apprécié les programmes de démonstration livrés avec la disquette 
tels que le minitableur, la commande lister, l'utilisation des fenêtres, l’utilisa- 
tion de la ligne de commande. 

L'AMSTRAD, grâce à son système d'exploitation CP/M, a pu se doter là d'un 
des meilleurs compilateurs Pascal actuels. 
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JOUER AVEC 
LES INTERRUPTIONS 


MSTRAD est capable de faire plusieurs choses à la fois, et ce travail en 
‘’multitâche” est accessible, vous le savez, depuis le Basic. EVERY 
et AFTER n'étant pas universels, nous avons cherché à aller plus loin : 


Afficher l'heure en Basic sous le contrôle d'EVERY est extrêmement simple, 
seulement il est impossible d'inclure un tel sous-programme dans un 
programme utilisant des INPUT : la pendule se bloque pendant la durée de 
l'entrée des variables (elle est remise à l'heure ensuite). Devant un tel 
problème, on est conduit à utiliser le langage machine. 

L'AMSTRAD est capable de traiter les interruptions, synchrones ou 
asynchrones, auxquelles on peut associer des ‘’événements”exécutables 
cycliquement. Plusieurs éléments sont paramétrables et, sans entrer en 
profondeur dans les détails, nous vous proposons, au moyen de deux petits 
exemples d'application, de faire plus ample connaissance avec ces 
interruptions. 

Deux types d'interruptions nous intéressent : 

— FAST TICKER apparaissant tous les 1/300° de seconde, 

— FRAME FLYBACK, tous les 1/50° de seconde, correspondant au retour du 
spot assurant le balayage. 

Les équivalents “soft” de ces interruptions sont appelés "EVENTS" et, si 
leur manipulation s'avère un peu délicate au début, vous conviendrez que 
savoir les utiliser ouvre pas mal d'horizons. L'installation d'un “EVENT” suit un 
schéma relativement simple. L'événement est décrit par sa classe, sa priorité, et 
l'adresse de la routine qui est appelée pour le traiter. 

La classe : événements synchrones ou asynchrones. Les événements syn- 
chrones sont traités immédiatement, les synchrones dès que le système a le 
temps. Pour les événements synchrones, on attribue une classe de priorité, 
Quant à l'adresse de la routine, elle est donnée au système lors de la descrip- 
tion” initiale de l'événement. 


A chaque “EVENT” est attribuée une zone mémoire (d'un certain nombre 
d'octets en fonction du type d'interruption) réservée au système. 
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L'initialisation d'un EVENT se fait comme suit : 
HL contient l'adresse de la zone mémoire réservée. 
B contient “la classe”, 


Bit 7 6 5 4 3 2 1 0 

ES 
1 Asyn Express @ niveau priorité adresse proche 
4 Syne Normal @ adresse lointaine 


C contient une valeur fonction de l'adresse mémoire de la routine d'événement 
(selon qu'elle est en RAM, ROM, ROM externe.) 

DE contient l'adresse de la routine qui sera exécutée à chaque interruption. 
Voici un premier exemple d'application : remplacer le curseur fixe par un 
curseur clignotant. On va donc, successivement, éteindre et allumer le curseur. 


On utilisera pour cela le FRAME FLYBACK (donc toutes les 20 ms). La zone 
mémoire à réserver pour le système est de 9 octets. Le type d'événement est 
“asynchrone”. La routine sera en RAM centrale. Le contexte a été sauvegardé 
à chaque exécution de la routine interruption : bien que cela ne soit pas 
nécessaire, notre auteur Eddy DUTERTRE a pris toutes ses précautions. Les 
routines en BB7B et BB7E correspondent respectivement à l'autorisation et 
l'interdiction d'affichage du curseur. 

Si le sujet (interruptions) traité ici rapidement, vous passionne, faites-le nous 
savoir, et nous ferons Un article plus complet sur la question. 


10000 MEMORY &7FFF 

10010 FOR n=&8000 TO &B029:READ d$:POKE n,VAL(*&"+d£}:NEXT 
10020 

10030 CALL &BO0D:NEN 


10050 DATA 21.2A,80,06,81,0E,00, 11,0€, 80 

10060 DATA CD.D7,BC, C9, C5,D5,65.F5,3A,FF 

10070 DATA 7F,E6,10,28,05, CD, 7B,BB, 18,0] 

10080 DATA CD,7E,BB,21,FF,7F,J4,F1,E1,D1 

10090 DATA C1,09 

PAGE  ! 

8000 212A80 LD HL.L8024 Adresse du bloc EVENT. 

8003 0681 LD B,81H Type asynchrone en mémoire centrale. 
8005 0E00 ES: “El Mémoire centrale, donc pas en ROM externe, 
8007 110E80 LD DE.LBODE Adresse de la routine à exécuter. 

8004 CDD7EC CäLL OPCD7H Initialise le bloc d'EVENT. 

800D C9 RET 

8ODE C5 LBQCE : PUSH RC Sauvegarde du contexte avant traiternent de 
G0OCF 55 PUSH DE l'interruption, 

8010 E5 PUSH HL 

8011 F5 PUSH AF 

8012 JAFF7F LD A,(7FFFH) 


205 


8015 Eét0 AND 10H 


8017 2805 JR Z,L@0IE  Effectue le clignotement (cadence) en fonc- 
8019 CD?7RPB CALL OBB7EH tion du contenu de 7FFF. 
B01C 1803 JR  L8021 


BOIE CD7EPRB LSDIE:  CALL OPR7EH 
8021 21FF7F L8021: LD HL,7FFFH 


BO24 J4 INC (HL) 

8025 F1 POP AF 

8026 EL POP HL 

8027 DI POP DE Restitue le context initial. 
8028 CI POP RC 

8029 C9 RET 

802A O0 LBO2A: NP 
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DES COULEURS PLUS CLAIRES 


Michel ARCHAMBAULT 


LS PEN... PAPER... BORDER...Bouh, que c'est compliqué ! Expliqué 
tout autrement, cela va devenir enfin clair : 
Il y a cinq notions différentes : 
— Le numéro de référence de la teinte ; Il y en a 27 numérotées de O {noir} 
à 26 (blanc brillant). C'est la liste de la page E3.2 du manuel d'origine. 
Appelons-le RT, c'est-à-dire référence teinte. 
— La palette de teintes que l'on se sélectionne, c'est INK. En mode normal, 
mode 1, on n'a droit qu'à quatre INK. On les numérote de O à 3. Dès la mise 
sous tension (MODE 1), on nous propose les INK suivants : 
INK 0,1 : bleu parce que RT = 1 = bleu, 
INK 1,24 : RT = 24 c'est jaune vif, 
INK 2,20 : RT + 20, un turquoise vif, 
INK 3,6 : RT — 6 = rouge vif. 
Vous voulez remplacer le turquoise par le vert de RT = 9 ? Facile, faites 
INK 2,9 (en mode direct ou dans un programme). En MODE ©, on a 16 INK sur 
la palette, de INK O à INK.15. Les quatre premiers (O à 3) sont les mêmes RT 
que précédemment. À quoi correspondent-ils ? Consultez le tableau de la page 
E3.4 du manuel. Vous voulez du noir (noir RT = O} ? C'est-INK n° 5 
En MODE 2, on n'a que 2 INK, INK O et INK 1. 

> 


— PAPER, c'est la couleur de fond. Par défaut, l'amstrad prend pour PAPER 
l'INK O, bleu foncé. Vous voulez un fond rouge ? Faites PAPER 3, parce que 
INK 3, c'est le rouge sur notre palette. Si vous faites PAPER 0,3, il y aura 
clignotement bleu-rouge {aucune rétine n'y résiste... 


— PEN {stylo en anglais). C'est la couleur des caractères, des traits. Même 
syntaxe que PAPER, on le fait suivre du numéro d'INK. Par défaut, c'est INK 1 
{jaune vif). Vous voulez des lettres bleues sur fond rouge ? Faites PAPER 3 : 
PEN ©. On peut écrire PEN avant PAPER, peu importe. 


— BORDER, c'est la couleur de la bordure, elle est totalement indépendante 
des couleurs présentes sur la palette, car on fait suivre BORDER, non pas d'un 
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numéro INK, mais du numéro RT, désiré (de O à 26). En MODE 1, on peut avoir 
4 teintes en INK plus une cinquième en BORDER. 
Exemple, BORDER 16 = orange clair. 


OK ? Bon, alors voyons quelques cas particuliers. 

— Par étourderie PAPER et PEN ont le même numéro d'INK : pire qu'un CLS 
parce qu'il n'y a pas de “READY”. Ne vous affolez pas, pressez ESC deux fois 
(Break) puis tapez PEN 1 (ou 2 où 3) et ENTER, et votre texte réapparaît. 
— En MODE 1, faisons PEN 6, alors que l'on ne devrait pas dépasser PEN 3: 
pas de message d'erreur, l'AMSTRAD repart à INK O0 : PEN 3 = PEN O: PEN 5 
= PEN 1 : PEN 6 = PEN 2 ; etc. jusqu'a PEN 26. 

— Pour modifier les couleurs. Rappelez-vous les deux choses prises par 
défaut lors de la mise sous tension, à savoir la palette des INK/n° RT (page E3.4) 
et le fait que PAPER = INK O0 et PEN = INK 1, ou de dire PEN 2 ou PAPER 3, 
ou de combiner ces deux techniques. 

Attention ! || y a des mariages malheureux entre deux couleurs voisines ; perte 
de netteté (l'AMSTRAD n'y est pour rien, le moniteur non plus}, ou contraste 
trop faible ou insoutenable. A vous de chercher quelques bons accords. 
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KILOBYTE 


Philippe PEREZ 
D. CARDON 


É chapitre cher aux paresseux mais aussi à ceux qui débutent et 
ont envie de découvrir le clavier sans taper des kilo... mètres de 


listing. 


Septembre, la fin des vacances ! Conservez le souvenir de la mer et 
du cri des mouettes avec le programme de D. CARDON. A écouter en 


fermant les yeux. 


Philippe PEREZ, lui, vous propose un petit utilitaire permettant de redé- 


finir facilement les touches du pavé numérique. 


Vous pouvez leur affecter les mots-clés les plus utilisés, en vue de sai- 


sir un long listing. 


La phase ‘‘affectation‘’ étant achevée, vous pourrez vérifier qu'il n'y 


a pas d'erreur. 
L'appui sur ‘‘F'’ permet de quitter le programme. 


LOE sem Bruit de vagues —-—--- 19/5/05 
2 1 me ou me me mn D,Cardon -==-———mmmmmum 
20 ENV il: 5%1510,110,15,—1,90s:cx1 
+0 WHILE INREVS= NM: tps %= =RND#400: va =RNDYX 
21: MOUA=RNDXZ 
40 SOUND c,0,300+tps4,0, L,,10+vakicæS=ct 
IF moux=i THEN GOSUE 100 
#0 WEND:CALL &ECERé: END 


100 ‘mm Mouette —-——— 20/5/9535 D 
CAO eee mn se oo ee ot 
110 ENV ,ÿRND#%(7+1),20 


TE 
ol 
120 FOR j=i TO 2:at/eRKND#x100:h2%=RND+K5 
130 FOR is1i TO 22 
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140 READ d£,h2,v% 
150 SOUND 4,h%4+h2%,d%, V4, 2:NEXT: SOUND 4, 

Ü: 15+at 4: RESTORE 

160 NEXT: RETURN 


170 DATA 1,70,1,2,609,4,1,68,5,1,67,5:1,6 
CPE-PENT-CFI-EET bo, 7:2,55,7,2,92,754911799 
,50, 7,18; 48, b,2,50, Tol5Slsboli 020 los 
7 4 1,54, 4,1 55,4, 1,57,3 PE EE PERTE EL ETTE TT 
0, 1,5,65,1 

10 MODE OsINE 1,1:1INK 0,15 

20 LOCATE 1,10:FRINT " REDEF INITION 


DU 
FAVE NUMERIQUE" 


3Q FOR I=i TO 400 STEF 10:FLOT 1,1:DRAW 
b40,1,1:NEXT 

40 BORDER 4,15 

50 FOR Izi TO 600:SOUND 1,%595$2/1,1,S:NEX 
Fr 

60 BORDER ji 

70 MODE &:N=-% 

50 FOR J#1 TO 4:RKEAD A,C 

90 FOK Iz:48 TO 480 STEP 192 

100 NEN+1:FLOT I,A 

110 DKAW I+48,A:DRAW 1+48,0C 

120 DRAW I,C:DRAW I,A 

120 FLOT I-4,A+4: DRAW I+52,A+4 

140 DKRAW 1452, C— 4: DRAW I-4,C-—-4:DRAW I4, 
A+4 

150 LOCATE (1+24)/8, (C+52) /16: FRINT N 
160 NEXT L,J: DATA 569,320,272,224,176,12 
8,80,352 ; 

170 LOCATE 9,82:PRINT “ O" 

180 LOCATE SES ,22:FRINT ! li CHR#(144) 

190 LOCATE 55,22:PRINT "ENTER. 's:L=1789 
200 FOR I=1 TO 12:READ F,G 

210 LOCATE F,G:INFUT Vé 

S£Q REY L,VSF+CHRE (52) :L&L+1:sNEXT 

240 DATA 15,22,15,16,39,16,65,16,15,10,S 


210 


9,10,65,10,15,4,39,4,63,4,59,22,65,22 

240 LOCATE 29,2S:FPRINT MCx * F = F 1 N * 
+) LE 

250 WINDOW #1,5,75,13,1%:FAFER #1, 1:PEN 
#1,0:CLS #1 | 

260 INFUT #1," ESSAIS : ":E# 

270 IF Efe"F" OR Ef="f" THEN 290 

280 CLS #1:GO0TO 260 

290 MODE 1 
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TRUCS ET ASTUCES 


J.M. LAQUITTANT 
50250 DONVILLE DES BAINS 


Dans votre rubrique Banc d'Essai des Logiciels du n° 3, vous présentez 
“MULTIGESTION. Contrairement à ce que vous annoncez, il est possible de 
titrer les rubriques. |l faut valider le curseur clignotant avec COPY et entrer 
le titre désiré dans les 18 postes utilisables. Le report est de plus automa- 
tique de l'option “Comptabilité journalière” vers l'option “Budget”. 


M. ROUSSELET 
95220 HERBLAY 


Pour une fois que le Basic s'avère plus intéressant que l'assembleur, je ne 
résiste pas au plaisir de donner une suite au programme CIRCLE d'Eddy 
DUTERTRE, paru dans CPC n° 3. Mon petit programme ci-dessous permet de 
tracer un cercle quelconque en 1 à 2 secondes, ce qui est assez rapide. 

Le principe : au lieu d'utiliser les équations paramétriques classiques X = Yc + 
R cos tet Ÿ — Yc +R sin t,on détermine une suite de points du cercle où les 
coordonnées de chaque nouveau point se déduisent de celles du précédent. 
Les paramètres 0.01, 0.141, 0.99 et 45 ont été choisis empiriquement. 


10 INPUT "ARSCISSE DU CENTRE  :°:XC 

20 INPUT ORDONNEE DU CENTRE  :":vC 

30 INPUT "RAYON DU CERCLE  :°4R 

40 XI=XCHR : Y1=YC 

50 E=0,01#4C+0.141#YC : F=0.DI#YC-0. 141# 
XC 

60 FOR N=1 TO 45 

70 X2-E+0.998X1-0, 141KYL + Y2=F+0, 99814. 
D.141#1 

‘80 PLOT X1,YL : DRAM X2,2 

90 X1=42 : YI=Y2 

100 MEXT N 
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Imprimante peut économe 


Si vous utilisez une imprimante autre que la DMP 1 sur votre AMSTRAD, vous 
avez peut-être constaté qu'elle avait une fâcheuse tendance à laisser une ligne 
blanche entre deux lignes imprimées. Certains préconisent de modifier par soft 
(cela est possible sur certaines imprimantes) l'espacement entre les lignes ; 
c'est bien, mais c'est aussi une manière de masquer le défaut. La solution 
passe par l'examen de la description du connecteur CENTRONICS : on 
s'aperçoit que, si la broche 14 est forcée à la masse, l'imprimante effectuera un 
saut de ligne automatique après chaque impression (AUTO LINE FEED). C'est 
l'origine du défaut car l'AMSTRAD envoie une masse sur ce point (toutes les 
liaisons “non utilisées” par l'interface AMSTRAD étant, à tort, fixées à la masse). 
Le remède consiste donc à isoler ce point 14, au moyen d'un minuscule 
adhésif, ou à couper le fil correspondant sur la nappe, mais là, gare ! ne vous 
trompez pas. 


Christian HUGEL 
68170 RIXHEIM 


Voici comment réaliser un miracle avec très peu de composants : avoir la 
couleur en possédant un AMSTRAD monochrome. Naturellement, vous aurez 
compris qu'il ne s’agit pas de transformer le moniteur, mais plus simplement 
de réaliser un cordon qui raccordera la console au téléviseur couleur familial, 
pourvu que celui-ci soit doté d'une prise Péritel. Le coût de la réalisation est 
extrêmement bas, même en tenant compte de l'alimentation 12 volts dont 
nous donnons un shéma. Cette alimentation permet de déconnecter la partie 
réception HF du téléviseur. Elle est indispensable car, l'AMSTRAD fonction- 
nant sous 5 volts, ne permet pas de commander la commutation via le câble. 
Nomenclature des composants 
— 1 connecteur Péritel 
— 1 prise DIN mâle 6 broches à 60° 
— 3 mètres de câble à 5 conducteurs 
— 1 résistance 100 ohms {brun-noir-brun-or) 
— 1 alimentation 12 V/500 mA type calculatrice 

ou 
— 1 transformateur 220 V/12 V 
— 4 diodes IN 4001 ou 1N4007 
— 1 condensateur 1000 uF/35V 
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Schéma de l'alimentation 


cable 5 cond. 


12 V/300 mA 


relier les bornes 2 à 6 
de la prise DIN aux 
bornes 2 à 6 de la 
prise PERITEL 


sortie 
12V/300 m4 


1000HhF/25V 
. Branchement 
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KILOBYTE 


maginez que votre AMSTRAD vient de tomber en panne :ilne lui reste plus” 
qu'un petit kilo-octet de mémoire. Saurez-vous écrire des programmes 
originaux performants qui ne tiennent que dans ce kilo-octet ? Attention 
vos programmes devront être écrits en Basic, mais les routines en code 
machine présentées sous forme de data sont acceptées. Faites-nous parvenir 
vos progammes sur cassette, accompagnés ‘ d'une brève explication. Les 
cassettes vous seront retournées si vous le demandez. 
Alors, tous à vos claviers. Il faut réussir à loger le maximum d'intelligence 
dans un kilo-octet. Les meilleurs programmes seront mis à l'honneur dans CPC 
et leurs auteurs récompensés. 
Deux fainéants astucieux pour KILOBYTE ce mois-ci. 
Erik BAJART nous propose d'apprendre le MORSE en traduisant les textes 
entrés en codes visuel et auditif. Si ce n'est pas la meilleure méthode pour 
débuter, elle pourra peut-être susciter des vocations. 
Michel DUBOIS, quant à lui, préfère faire réviser aux enfants leurs tables de 
multiplication, tout en faisant travailler la mémoire. Savant mélange de 7 x5 — 
et du jeu du “retourné”, le tout en quelques lignes. Au travail | 


. BORDER S:MODE 1: FRINT:DEFINT a-zisxle 
ENV 1,15,1,1:1F as THEN SYMEO 
L AFTER 95: SYMEOL. 95,0,0,0,0,0,47E,M7E 
20 FRINT,'"##%%x MORGE Pat ete t0) 23467894 
BCDEFGHIJKLMNOFORS STUVWXYZ, ,5 7 OUICEE" 
_OGCAGFX\ 248: , "+CHRE C4) +UE .DE7-d RE /bex 
#) 1+9:258X, AMM': PRINT: PRINT: PRINT: INFUT 
UDUREE D'UNE NOTE (5 a 30) "sd: PRINT: FRI 
NT'Ecrivez le message Us PRINTILINE INFU 
T m# 
“0 mi=UPFERSE Cm$) : PRINT: FRINTse20$: GOSUE 
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AO FOR il T0 LEN(MÉ): as INSTR(a#,MIDS# (m# 
1131))+13e"AGC(MIDE(CCE, a))-52-64%(ar57): 
GOSUR 40: NEXTre=42: GOSUE 40: PRINT: PRINT: 
FRINT'Encore (O-N) ® ss WMILE ifatie ji el) 
FPER# CINKEY#) : WNEND: PRINT i#:IF i#fæe"0" TH 
EN RUN ELSE END 

40 ef=MIDE(BINE(e) ,2):FOR jxi TO LEN(e#) 
IDE=MIDE(ef,j,1)21F b£="i" THEN FKRINT"_" 
5: SOUND 1,s,%*d,15 ELGE IF b#æ"o" THEN F 
RINT'"', ":: SOUND 1,5,d,15 ELSE FRINT" ":S0 
UND 1,5,4%d,0 

JQ SOUND 1,8,d,0:WMILE SG(1):*127:WEND: NE 
XT ji:PRINT'" les: SOUND 1,8,2%d,0:WHILE SQ( 
1)4127: WEND: RETURN 


1 WINDOW #1,1,40,1,1:#RANDOMIZE TIME:nælN 
TIRND(1)#8) +2: FOR ii TO 9 STEF 2: j=INT( 
1/2) +63 aF=CHRE (n+48) +'XU+CHRE (j+48) : GOSU 
R 11:af=STR#(nxj):GOSUR 11: NEXT: CLS: ke: 

GOSUR 7 

3 INFUT#I,1 ,mtk=1: GOSUE 7:1F e(l)ze(m) T 
HEN gzg+i:e(l)z0te(m)z0:GOTO & 

4 k=2:GOSUE 7 

d IF q=4 THEN END 

& GO0OTO # 

7 CO: FOR ys#00 TO 200 STEF —-100:FOR = 
& TO 556 STEF 80: MOVE x ,vicæc+isiF elc)is= 
THEN 10 

IF Kzz THEN FOR is1i TO 54: DRAWA 0,-80, 
1: MOVER 1,0: DRAWR 0,80: MOVER 1,03NEXT:LO 
CATE K/16+3, (400-vy)/16+2:1F m(c)4%0 THEN 
FRINT USING "#'sc 

9 IF kel THEN IF cel OK c=m THEN MOVER % 
72: FOR ie1 TO ZZ:DRAUR O0,-76,0:MOVER 1, 

QsDRAUR 0,76: MOVER 1,0:NEXT:LOCATE x/16+ 
y (AOQ-VY) /16+S:FRINT t$(c) 

10 NEXT:NEXT: RETURN 

11 HheINTCRNDC(2)48)+1:1F t£(Nh)<EMNTMEN 11 
1E t£(h)=atie(h)=nx ji: RETURN 


œ 
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